uses crt;
var
a:integer;
begin
clrscr;
for a:=1 to 500 do begin
gotoxy(30,8);
textcolor(a);
writeln(`Yazmak İstediginiz Yazi`);
delay(500);
(*Delay Degerini KAfanıza Göre DeğiştirebiLirsiniz*)
end;
readln;

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

Baslık	Kategori	Hit
Pascal dan photoshop	PASCAL	719
Animasyon	PASCAL	510
Kullanıcı adı ve şifre	PASCAL	560
Üç taş oyunu 1.0	PASCAL	2081
Arkadaş listesi	PASCAL	507