var num,max: real;

begin
    write('num = ');
    readln(num);
    max := num;
    
    while num <> 0 do
    begin
        if num > max then max := num;
        write('num = ');
        readln(num);
    end;
    
    write('max = ',max);
    readln;
end.