var
str1, str2: string;
begin
write('Введите слово: ');
readln(str1);
for var i := str1.Length downto 1 do
str2 := str2 + str1[i];
write('Результат: ', str2);
end.
