Распечатайте введенную строку “в столбик” - Free Pascal

Распечатайте введенную строку “в столбик”.

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

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

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

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