Girilen ismin tersini yazan program.

uses crt;
var
i,x:integer;
ad,isim:string;
begin
clrscr;
readln(isim);
x:=length(isim);
for i:=x downto 1 do
begin
ad:=copy(isim,i,1);
write(ad:5);
end;
readln;
end.

Linkback: https://www.buyuknet.com/girilen-ismin-tersini-yazan-program-t8632.0.html