напишите процедуру, которая выведет на экран в столбик все цифры переданного ей числа, начиная с первой нужно полностью написать программу

огромное спасибо

vara:integer;procedure Stolbic(c:integer);var s:string; i:integer;beginstr(c,s);for i:=1 to length(s) dowriteln(s[i]);end;beginwriteln('введите число);readln(a);writeln('результат);stolbic(a)