Запишите программу для вычисления суммы квадратов положительных элементов массива действительных чисел. количество элементов массива n (5

Var n:array[1..5] of integer; i,s:integer;
begin
for i:=1 to 5 do read(n[i]);
for i:=1 to 5 do if n[i]>0 then s:=s+sqr(n[i]);
writeln; write('S= ',s);
end.