uses crt;
var j,k,l:integer;
    z:char;
begin
repeat
     clrscr;
     writeln('Trtkal 2008 - http://fei.trtkal.net');
     writeln('-----------------------------------');
     writeln('Myslim si cislo od 1-100');
     randomize;
     j:=random(99)+1;
     l:=0;
     repeat
           write('Zadej cislo: ');readln(k);
           if (j>k) then writeln('Mam vyssi cislo nez ',k);
           if (j<k) then writeln('Mam nizsi cislo ',k);
           l:=l+1;
     until (j=k);
     writeln('Hura, uhodl jsi moje cislo na ',l,' pokusu, moje cislo bylo: ',j);
writeln('----------');
write('Opakovat a/n: ');readln(z);
until (z='n');
end.