uses crt;
var i:integer;
begin
textcolor(yellow);
clrscr;
gotoxy(30,1);
write(`d`);
gotoxy(41,49);
write(`n`);
for i:=1 to 25 do
begin
gotoxy(30,i);
write(`d`);
gotoxy(41,(49-i));
write(`n`)

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

Baslık	Kategori	Hit
Kayan yazi	PASCAL	424
zeka oyunu	PASCAL	432
Üç taş oyunu 1.0	PASCAL	2081
Arkadaş listesi	PASCAL	507
Animasyon	PASCAL	510