Question

Написать программу, которая вводит слово, а затем выводит его по одному символу в строке.
Пример:
П
Р
И
В
Е
Т​

Answer 1

var s: string;

i: integer;

begin

readln(s);

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

end.