{Первая задача}
var
s, rez: string; // строки
i: integer; // целое число (счетчик)
begin
writeln('Введите строку:');
readln(s); //
for i := length(s) downto 1 do // просматриваем буквы, начиная с последней
rez := rez + s[i]; // прибавляем букву к результату
writeln(rez) // выводим результат
end.
