program hadani;
uses                                                  {knihovny}
    crt;                                              {knihovna crt system}
var
  nahcislo, hadcislo, rozdil, i : integer;
begin
    randomize;             {prikaz z knihovny crt generuje nahodna cisla}
    nahcislo := random(100) + 1;   {random je funkce, ktera dava nah. cisla}
    i := 0;                        {nahcislo je cislo od 1 do 100}
    writeln('uhodni cislo od 1 do 100');
    repeat
        i := i + 1;                {pocet pokusu}
        writeln(i, '. pokus');
        readln(hadcislo);          {napisu cislo, ktere si myslim, ze je spravne}
        rozdil := hadcislo - nahcislo;
        if rozdil = 0 then begin
           writeln('vyborne hadane cislo je ', nahcislo);
        end else begin
            if rozdil > 0 then begin
                writeln('hadane cislo je mensi');
            end else begin
                writeln('hadane cislo je vetsi');
            end;
        end;
     until rozdil = 0;
     readln;
end.