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
Şifreleme.	PASCAL	720
Pascalda sürekli renk değiştiren yazı	PASCAL	621
Üç taş oyunu 1.0	PASCAL	2081
Kullanıcı adı ve şifre	PASCAL	560
Arkadaş listesi	PASCAL	507