const
n=10;
var
arr :array[1..n] of integer;
i,sum1,sum2 :integer;
begin
randomize;
for i:=1 to n do
begin
arr[i]:=random(15);
write(arr[i]:4);
end;
for i:=1 to 4 do
inc(sum1,arr[i]);
for i:=5 to n do
inc(sum2,arr[i]);
writeln;
writeln('Первых 4-х ',sum1,' Остальных ',sum2);
end.