Напишите программу, которая выводит в столбик цифры введённого числа, начиная с первой. Используйте процедуру.

Входные данные
Входная строка содержит неотрицательное число N .

Выходные данные
Программа должна вывести в столбик все цифры введённого числа, начиная с первой.

Примеры
входные данные
1234
выходные данные
1
2
3
4
На паскале.

Здравствуйте, помогите пожалуйста с информатикой https://znanija.com/task/28388643 спасибо большое)

стринговый читер ;)

"Используйте процедуру."

Procedure stolb(a: integer);var  s: string;i: integer;beginstr(a,s);for i:=1 to length(s) do writeln(s[i]);end;var a:integer;beginwrite('Введите число: ');readln (a);stolb (a);readlnend.