Напишите программу, которая вычисляет количество отрицательных элементов в последовательности Х1…Хn, все положительные элементы заменяет на их квадраты, а отрицательные на их кубы — Pascal(Паскаль)

var a: array [1..100] of longint; i, n: 1..100;
begin
readln(n);
Randomize;
for i := 1 to n do a[i] := Random(1000) - 500;
for i := 1 to n do write(a[i], ' ');
writeln;
for i := 1 to n do
  if a[i] > 0 then a[i] := a[i] * a[i]
  else a[i] := a[i] * a[i] * a[i];
for i := 1 to n do write(a[i], ' ');
readln;
end.