Код программы

program raf105;

var a,max:integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

a:=1;

while a<>0 do

begin

 readln(a);

 if a>max

   then max:= a;

end;

writeln('Максимальное число: ',max);

end.

Результаты работы программы

Вывод:

Вводите числа по очереди

чтобы закончить введите 0

Ввод:

12

1

100

99

105

104

2

3

0

Вывод:

Максимальное число: 105