Пожалуйста посчитайте решить 1 номер

var
 a:array[1..1000] of integer;
 i,n,max,min,s:integer;
begin
  Write('n='); readln(n);
  a[1]:=Random(30)-15;
  max:=a[1]; min:=a[1]; s:=a[1];
  Write(a[1],' ');
  for i:=2 to n do 
  begin
   a[i]:=Random(30)-15;
   Write(a[i],' ');
   if max<a[i] then max:=a[i];
   if min>a[i] then min:=a[i];
   s:=s+a[i]
  end;
  Writeln;
  Writeln('Max->',max);
  Writeln('Min->',min);
  Writeln('Suma->',s);
  for i:=1 to n do Write(sqr(a[i]),' ');
end.

var
 a:array[1..1000] of integer;
 i,n,kol:integer;
 sa:real;
begin
  Write('n='); readln(n);
  for i:=1 to n do 
  begin
   a[i]:=Random(50)+120;
   Write(a[i],' ');
   sa:=sa+a[i]
  end;
  writeln;
  sa:=sa/n;
  writeln('Средний рост-> ',sa);
  for i:=1 to n do if a[i]>sa then inc(kol);
  writeln('Количество-> ',kol);
end.