program ukol13;
uses crt;
var
  cislo,horni,tip,pokus:integer;
begin
  clrscr;
  randomize;   {inicializace generatoru nahodnych cisel}
  pokus:=0;

  write('Zadejte horni hranici: ');
  readln(horni);

  cislo:=random(horni);
  writeln('Myslim si cislo od 0 do ',horni);
  write('Zkus ho uhodnout: ');
  repeat
   readln(tip);
   pokus:=pokus+1;

   if tip>cislo then write('Zkus min: ')
    else
     if tip<cislo then write('Zkus vic: ');

  until tip=cislo; {tipujete tak dlouho dokud neuhodnete}

  writeln('-------------------------------------');
  writeln('Spravne, uhodl jsi na ',pokus,'. pokus');
end.