Составьте программу, определяющую максимальное из всех вводимых вами чисел. концом ввода чисел является введенное число 0. для проверки подготовить код программы и результаты ее работы.

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