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
Pascal dan photoshop	PASCAL	719
Kayan yazi	PASCAL	424
zeka oyunu	PASCAL	432
Arkadaş listesi	PASCAL	507
Şifreleme.	PASCAL	720