В колонках играет - Не знаю.
Настроение сейчас - За спиной Хангман.

program gi;
uses crt;
var
k:integer;
begin
clrscr;
randomize;
k:=0;
repeat
k:=random (99);
textcolor (k);
{sound (k+15000);
sound (k+5000);}
sound (k+1000);
delay (k+33333);
{write (k);}
write ('Snitman!!! You are piece of shit, man!');
{write (k);}
sound (k*8888);
until keypressed;
nosound;
end.