Program LosovaniExtra;

uses Crt;

var tah: integer;

begin
  Randomize;
  clrscr;
  writeln('Stisknte libovolnou klvesu: ');
  repeat
    GotoXY(WhereX-1,WhereY);
    tah:=random(10);
    write(tah);
    delay(100);
  until KeyPressed;
  readln;
end.
