Написать программу (PascalABC), которая получает на вход строку, а на выходе пишет каждый символ строки в "столбик"

var s:string; i:integer;

begin

writeln('Введите строку:');

readln(s);

for i:=1 to length(s) do writeln(s[i]);

end.

Пример:

Введите строку:

primer

p

r

i

m

e

r