program spiegeln_rekursion;
uses crt;
var s2: string;

function spiegeln(s: string;i: integer): string;
begin
if i = 1 then spiegeln:=s[1] else spiegeln:=s[i]+spiegeln(s,i-1);
end;

begin
ClrScr;
write('Wort eingeben: ');
readLN(s2);
write(spiegeln(s2,length(s2)));
readLN;
end.