program z1653; uses crt; var i:byte; s,p:string; BEGIN write ( 'text:'); readln(s); p:=''; for i:=1 to length(s) do p:=s[i]+p; s:=s+p; writeln(s); END.