Дано n чисел .вычислите сумму квадратов отрицательных чисел

Pascal ABC.

var   
    i,n,sum,a:integer;
begin     
    readln(n);     
    for i:=1 to n do     
    begin         
        readln(a);         
        if a<0 then sum:=sum+sqr(a);     
    end;     
    writeln(sum);
end.

n = int(input())
s = 0
for i in range(n):
 m = int(input())
 if m<0: s+=m**2
print(s)