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.



Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir.

Baslık	Kategori	Hit
Arkadaş listesi	PASCAL	507
zeka oyunu	PASCAL	432
Kullanıcı adı ve şifre	PASCAL	560
Kayan yazi	PASCAL	424
Animasyon	PASCAL	510