program MinMax;
{ Urcenie minima a maxima z neznameho poctu cisel }
{ Rad je ukonceny koncovym znakom                 }

const KoncZnak=-9999;    {prikaz const definuje konstantu }
var cislo:integer;
    max,min:integer;

begin
   writeln('Koniec zadavania,KoncZnak);
	write('Zadaj cislo');
        readln();
   max:=cislo
   min:=cislo;
   While (cislo><KoncZnak)
   	begin
    		if cislo>max then
      		max:cislo;
      	if cislo<min then

         writeln('Zatial je najvecsie max',' a najmensie ',min);

         write('Zadaj cislo');
         readln(cislo);
    	end;
   writeln(Minimum je ',min,'. Maximum je ',max,'.');
end.