[gokhanaygun]

uses crt;
var
x,i:integer;
begin
randomize;
clrscr;
repeat
i:=i+1;
textcolor(lightgreen);write('II000III000IO');
x:=random(5422);
sound(x);
delay(6);
until keypressed;
nosound;
readln;
end.