Klavyeden girilen ismi alt alta birerli atlayarak yazan program

uses crt;
var
isim:string;
i:integer;
begin
clrscr;
writeln('isminizi_giriniz:');readln(isim);
for i:=1 to 15 do
begin
gotoxy(i,i);
writeln(isim);
end;
readln;
end.

Linkback: https://www.buyuknet.com/klavyeden-girilen-ismi-alt-alta-birerli-atlayarak-yazan-program-t8594.0.html