Распечатайте введенную строку в обратном порядке - Free Pascal

Распечатайте введенную строку в обратном порядке.

Листинг программы

var
s:string;
i:dword;
begin
  readln(s);
  for i:=length(s) downto 1 do writeln(s[i])
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

Объявляются две переменные:
- s:string - переменная для хранения введенной строки;
- i:dword - переменная для хранения индекса символа в строке.
Вводится строка с помощью функции readln(s).
Запускается цикл for, который начинается с i=длина строки (length(s)) и идет до 1.
Внутри цикла выводится каждый символ строки (s[i]), начиная с последнего.
Цикл завершается, и программа заканчивается.