program lost;
uses Crt;
begin
Randomize;
repeat
TextAttr := random(256);
write('!');
until keypressed;
end.

-----------------
בברכה,
e-do