program maksimum;
var
 n: integer;
 max: integer;
begin
 max:=0;
 repeat 
  write('n='); readln(n);
  if(n>max) then max:=n;
  writeln('maksimum=',max);
  writeln;
 until (n<0);
 writeln('max=', max); 
end.