Üçgen şeklinde ismi ve tersini azaltarak yazan program

Üçgen şeklinde ismi ve tersini azaltarak yazan program


uses crt;
var
a,ad:string;
y,z,x,i:integer;
begin
clrscr;
readln(a);
clrscr;
x:=length(a);
for y:=1 to x do begin
gotoxy(x,y);
for z:=x downto y do begin

ad:=copy(a,z,1);
write(ad:1);
end;
writeln('  ');
end;
gotoxy(1,1);
for i:=1 to x do begin
ad:=copy(a,i,x);
writeln(ad:6);end;
readln;
end.



Linkback: https://www.buyuknet.com/ucgen-seklinde-ismi-ve-tersini-azaltarak-yazan-program-t8634.0.html