program numbers;

uses crt;


procedure display_numbers;

var
   x,y    : byte;
   colour : byte;
   number : byte;
   ch     : char;
   exit   : boolean;

begin
   exit := false;
   repeat
      x := random(79)+1;
      y := random(24)+1;
      colour := random(15);
      repeat
         number := random(57)+1;
      until number >= 48;
      textcolor(colour);
      gotoxy(x,y);
      write(chr(number));
      if keypressed then
      begin
         ch := readkey;
         ch := #0;
         exit := true;
      end;
   until exit;
end;


begin
   textmode(80);
   textcolor(black);
   clrscr;
   randomize;

   display_numbers;

   textcolor(lightgray);
   clrscr;
end.