Напишите решение в виде рпограммы на языке pascal вводится последовательность из n натуральных чисел, найти сумму всех отрицательных

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