{(c) 2001 Emur http://emur.org}

program hadani;
uses crt;
var cislo,hadane,n: integer;

begin
textbackground(0);clrscr;
window(10,2,70,4);
textbackground(blue);clrscr;
textcolor(white);
gotoXY(12,3);writeln('Myslim si cislo od 1 do 100, uhodni ho!');
window(25,6,55,24);clrscr;
randomize;
cislo:=random(100);
n:=1;
write(n,'. pokus: ');
read(hadane);
while hadane<>cislo do
  begin
  if hadane>cislo then writeln('Trosku uber!')
  else writeln('Trosku pridej!');
  n:=n+1;
  write(n,'. pokus: ');
  read(hadane);
  end;
window(10,2,74,4);clrscr;
writeln;
write('  Gratuluji, myslel jsem si cislo ',cislo,' a uhodnul si ho na ',
n,'. pokus');
readkey;
end.