(* maks.p *) (* SJ 250398 *) 

(* Syötettyjen lukujen maksimin laskeva ohjelma,
   lopettaa saatuaan nollan (0) *)

program maks;

var	uusi_luku, maks : integer;

begin
  maks := -999;

  writeln("Anna lukuja, lopuksi 0");
  (* toistetaan kunnes annettu luku on 0 *)

  repeat
	  readln(uusi_luku);
	  (* jos annettu luku on suurempi kuin *)
	  (* edellinen maksimi, luku muistiin  *)
	  if ((uusi_luku > maks) and (uusi_luku <> 0)) then
		  maks := uusi_luku;

  until (uusi_luku = 0); 

  writeln(maks);

end.
