Найдите сумму квадратов неотрицательных элементов в заданном  целочисленном одномерном массиве .  сделайте пожалуйста  в паскале

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.