uses
crt;
var
a:
integer
;
begin
clrscr;
for
a:=
1
to
500
do
gotoxy(
30
,
8
);
textcolor(a);
writeln
(
'Yazmak İstediginiz Yazi'
delay(
(*Delay Degerini KAfanıza Göre DeğiştirebiLirsiniz*)
end
readln;
.
oğuz eroğlu/ted zonguldak koleji vakfı özel ilköğretim okulu
/a
oguz_eroglu67@hotmail
co
uk