Uses Crt ;
Var
   X, Y : Byte ;
BEGIN
     TextBackground(Black);  (* Xóa màn hình *)
     ClrScr ;
     Repeat
           X := Succ(Random(80)); (* Vẽ các cửa sổ ngẫu nhiên *)
           Y := Succ(Random(25));
           Window(X, Y, X + Random(10), Y + Random(8));
           TextBackground(Random(16)); (* Tạo màu ngẫu nhiên *)
           ClrScr ;
     Until KeyPressed ;
END.