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

program input_number;var s, n, f:integer;beginn:= 1;while n > 0 dobeginf:= 1; //Признак наличия отрицательного числаwrite(\'Введите число: \');read(n);if n = 0 then f:= 0end;writeln();while n <> 0 dobegin write(\'Введите число: \');readln(n);s:= s + n;end;if f = 0 then writeln(\'Нет отрицательных чисел\')else writeln(\'Сумма чисел после первого отрицательного: \', s);end.