номер 3 скореееееекеееееееееееа

Var a:array[1..10]  of integer;
i:integer;
Begin
for i:=1 to 10 do
read (a[i]);
for i:=1 to 5 do
write (a[i],'  ');
writeln();
for i:=6 to 10 do
write (a[i],'  ');
End.