вводится последовательность чисел, 0 - конец последовательности. вычислить сумму чисел после первого отрицательного

program input_number;

var s, n, f:integer;

begin

n: = 1;

while n > 0 do

begin

f: = 1; / /Признак наличия отрицательного числа

write ('Введите число: ');

read (n);

if n = 0 then f: = 0

end;

writeln ();

while n 0 do

begin

write ('Введите число: ');

readln (n);

s: = s + n;

end;

if f = 0 then writeln ('Нет отрицательных чисел')

else

writeln ('Сумма чисел после первого отрицательного: ', s);

end.