Program Windows;
Uses
	Crt;
Procedure RandomWindow;
Var
	X1, Y1, X2, Y2 : byte;
Begin
	X1 := Random(40)+1;
	Y1 := Random(12)+1;
	X2 := X1+Random(40);
	Y2 := Y2+Random(12);
	TextColor(Random(15));
	Window(X1, Y1, X2, Y2);
	ClrScr;
End;

Procedure WorkWindow;
Var
	i : integer;
Begin
	for i := 0 to Random(1000)+500 do begin
		write(Chr(Random(224)+32));
		delay(25);
	end;
End;
	
Procedure Finish;
Var
	i : integer;
Begin
	Window(1, 1, 80, 25);
	ClrScr;
	if ReadKey = #0
		then ReadKey;
End;
		
Begin
	ClrScr;
	Randomize;
	repeat
		RandomWindow;
		WorkWindow
	until KeyPressed;
	Finish;
End.