2. Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности положительных чисел (длина последовательности неограниченна).

program zz1;

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

begin

y:=0;

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

if x > y then y:=x;

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

begin

read (x); / / вводим следующее число последовательности

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

end;

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

end.