Program ez_1;

var  s: integer;
a: array [1..9] of integer;\
i: byte;
begin
  a[1] := 5;
  for i := 1 to 9 do
a[i] := a[1] + 2 * i;
 for i := 1 to 9 do
begin
    s := 3 * (a[i] * a[i]);
    writeln(s);
  end;
end.

2)
program ez_2;var
  s, m, b: integer;
  a: array [1..9] of integer;
  i: byte;
begin
  readln(s);
  for i := 1 to s do
  begin
    read(a[i]);
 if a[i] < 0 then m := m + 1
else b := b + 1;
 end;
 writeln(b, ' Положительных чисел');
 writeln(m, ' Отрицательных чисел');
end.




Вроде так. Если что-то не так. Пиши.