PASCAL.ABC1. В два массива с клавиатуры заполнить числа, отображающие количество забитых

//1

var

 a, b: array of integer;

 n: integer;

procedure parse(var a, b: array of integer; n: integer);

begin

 var sum_p: integer := 0;

 var sum_m: integer := 0;

 var data: integer := 0;

 setlength(a, n); setlength(b, n);

 var i:integer;

 for i := low(a) to high(a) do  

 begin

   readln(a[i]); readln(b[i]);

   sum_p += 3a[i];//kov vo zabitix myachei

   sum_m += b[i];//kol vo promaxov

   if b[i] gt; 1 then inc(data);

 end;

 writeln(sum_p - sum_m);

 writeln(data);

end;

begin

 readln(n);

 parse(a, b, n);

end.

//2

var

 a: array of integer;

 n: integer;

procedure parse(var a: array of integer; n: integer);

var

 i: integer;

begin

 var data: integer := 0;

 setlength(a, n);

 var sum: integer := 0;

 for i := low(a) to high(a) do begin read(a[i]); sum += a[i]; if a[i] lt; 0 then inc(data); end;

 writeln(sum / (high(a) + 1):0:4);

 write(data);

end;

begin

 readln(n);

 parse(a, n);

end.