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; end.
Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 09:29.