Question

Заданную строковую переменную записать в обратной последовательности

Answer 1

var s :string;
      i :integer;
begin
writeln('введите переменную');
readln(s);
for i:=(Length(s)) downto 1 do write (s[i]);
end.