Const
  n = 20;

var
  x: array[1..n] of integer;
  i, s: integer;

begin
  Randomize;
  s := 0;
  Write('Элементы массива: ');
  for i := 1 to n do
  begin
    x[i] := Random(101) - 50;
    Write(x[i]:5);
    if x[i] >= 0 then s := s + sqr(x[i])
  end;
  Writeln(#13#10, 'Сумма квадратов неотрицательных элементов равна ', s)
end.

Тестовое решение:
Элементы массива:   -29    1  -36   50  -29   31    4   28  -25   -1   17  -45  -48  -19  -49  -49  -30  -22    8   18
Сумма квадратов неотрицательных элементов равна 4939

var a:longint;
      n, i:integer;
      s:array [1..10000] of integer;
begin
   read(n);
   a:=0;
   for i:=1 to n do
      read (s[i]);
   for i:=1 to n do
      if s[i]>=0 then a:=a+sqr(s[i]);
   writeln(a);
end.