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