program test_2;
var num, max: integer;

begin
    num := 1; {введённое число, по умолчанию 1,
                            что бы запустился цикл}
    max := 0; {хранит максемальное число}
    while num <> 0 do begin {запрашиваем число до тех пор,
                                            пока не введут 0}
        read(num); {ввод числа}
        if (num > max) then {если нашли большее число то}
            max := num; {в переменную max записываем его}
    end;
    write(max); {выводим максемальное чило}
end.