{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.