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.