Var s,s1:string; p:byte;
begin readln(s); for p:=length(s) downto 1 do s1:=s1+s[p];
writeln(s1); end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.