Напишите операцию, в результате которой строка s окажется повернутой наоборот.

program zz1;

var s, s2:string; / / задаем переменные строкового типа

i, k:integer; / / задаем переменную целого типа

begin

write (' введите строку ');

read (s); / / вводим с клавиатуры строку

for i:=length (s) downto 1 do / / организуем цикл, в котором переберем все символы от последнего до первого

s2:=s2 + s[i]; / / добавляем очередной символ из исходной строки в конечную строку

write (' перевернутая строка = ', s2); / / выводим ответ

end.