Вводится последовательность ненулевых чисел, 0 - конец последовательности. Определить наибольшее число в последовательности.

program zz1;

var max, n:integer; / / задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры число

read (n);

while n 0 do / / организуем цикла, в котором будем вводить числа последовательности, пока не будет введен ноль

begin

if n > max then max:=n; / / проверяем, если введенное число больше максимального, то записываем его в максимальное

read (n); / / вводим с клавиатуры очередное число последовательности

end;

write (' наибольшее число в последовательности = ', max); / /выводим ответ

end.