program szines_karakterek_x_ig;
uses crt;
var x,y,ckod,szin:byte;
    c:char;
begin
     clrscr;
     repeat
      randomize;
      x:=random(80)+1;
      y:=random(25)+1;
      ckod:=random(256);
      szin:=random(16);
      textcolor(szin);
      gotoxy(x,y);
      write(chr(ckod));
      if keypressed then c:=readkey;
     until c='x';
end.