В Дрезденской галерее находилась и погибла во время Второй мировой войны картина Г.Курбе “Дробильщики камней”

Предполагается, что будет введено минимум одно значение.

var
max,a : integer;
begin
readln(a);
max := a;
repeat
readln(a);
if (a > max) and (a <> 0) then
max := a;
until a = 0;
writeln(max);
readln;
end.

P.S. Если понравилось решение не забудь отметить как лучшше. ;)