Program p3;
var a,b:array of integer;
    s1,s2:longint;
    i,n:integer;
begin
 Write('Введите размер массива, n=');
 Readln(n);
 Setlength(a,n);
 Setlength(b,n);
 Writeln('Вывод 1-ого массива');
 For i:=0 to n-1 do
  begin
    a[i]:=random(201)-100;
    Write(a[i],' ');
    s1:=s1+a[i];
  end;
   Writeln;
   Writeln('Вывод 2-ого массива');
 For i:=0 to n-1 do
  begin
    b[i]:=random(201)-100;
    Write(b[i],' ');
    s2:=s2+b[i];
  end;
  Writeln;
  If s1>s2 then
  Writeln('Сумма первого массива больше на ', s1-s2) else
  If s1<s2 then
  Writeln('Сумма второго массива больше на ', s2-s1) else
  Writeln('Суммы массивов равны, S=',s1)
end.