Var s: string;
i: integer;
begin
readln(s);
for i:=length(s) downto 1 do write(s[i]);
end.
* Если дано слово из 4 букв, то " length(s) " можете заменить на 4.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.