program szines_teglalapok_x_ig;
uses crt;
var x1,y1,x2,y2,szin:byte;
    c:char;
begin
     clrscr;
     repeat
      randomize;
      x1:=random(80)+1;
      y1:=random(25)+1;
      x2:=random(80)+1;
      y2:=random(25)+1;
      szin:=random(16);
      textcolor(szin);
      window(x1,y1,x2,y2);
      textbackground(szin);
      clrscr;
      if keypressed then c:=readkey;
     until c='x';
end.