alt alta isim yazan program

İsim
        sim
          im
           m     şeklinde yazan program.

uses crt;
var
i,x:integer;
ad,isim:string;
begin   
clrscr;     
writeln('İsmi gir:'); readln(isim);
x:=length(isim);
for i:=1 to x do
begin

ad:=copy(isim,i,x);
writeln(ad:5);
end;
readln;
end.


Linkback: https://www.buyuknet.com/alt-alta-isim-yazan-program-t8633.0.html