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
