{Girilen ismi ekranin ortasinda esli bir sekilde kaydiran program kodlari} uses Crt; var i,hiz,ses:integer; ad:string; begin clrscr; textcolor(15); gotoxy(1,1);write('Adinizi Giriniz...:');readln(ad); gotoxy(1,2);write('Ge‡is Hizini Giriniz...:');readln(hiz); gotoxy(1,3);write('Ses Kodunu Giriniz(1 ila 1000 arasi)...:');readln(ses); clrscr; gotoxy(1,1);writeln('€ikmak I‡in Herhangi Bir Tusa Basin ve Yazinin En Saga Gitmesini Bekleyin'); repeat for i:=1 to 70 do begin textcolor(14); gotoxy(i+1,20);Write(ad); sound(ses); delay(hiz); textcolor(black); gotoxy(i+1,20);Write(ad); end; until keypressed; nosound; readln; end.