Ответ: спасибо в карман не положишь)))

Ответ: var l,i:longint;S:String;begin Read(S); l:=length(S);For i:=l downto 1 do Write(S[i]); end.