Сумма положительных элементов последовательности на Паскале. Написать программу.

За окончание ввода последовательности примем ввод нуля. Изначально переменную суммы следует обнулить. В цикле проверяем введенное число с нулем и в случае отличия суммируем.

program ex46;
uses crt;
var n, x, s, i: integer;
begin
clrscr;
write('введите длину последовательности n='); readln(n);
s:=0;
for i:=1 to n do
begin
write('введите число х= ');
readln(x);
if x<0 then continue;
s:=s+x;
end;
writeln('сумма положительных членов последовательности s=', s);
readln;
end.