program p14;

Uses Crt;

var Moje_cislo, Tvoje_cislo,pocet_pokusu:integer;

begin
clrscr;
randomize;
Moje_cislo:=random(50)+1;
writeln('Myslim si cislo od 1 do 50.');
repeat
pocet_pokusu:=pocet_pokusu+1;
write('Pokus c.',pocet_pokusu,' Kolik hadate ? ');
read(Tvoje_cislo);
if Tvoje_cislo>Moje_cislo then writeln('Myslim si mensi cislo');
if Tvoje_cislo<Moje_cislo then writeln('Myslim si vetsi cislo');
until Moje_cislo=Tvoje_cislo;
writeln('G R A T U L U J I    ! ! !');
writeln('Pocet pokusu : ',pocet_pokusu);
repeat until keypressed;
end.