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

var
a : integer; // объявляем переменную целочисленного типа.
Procedure P1(a:integer); //начало процедуры.
var
i : integer; // объявляем переменную целочисленного типа.
s : string; // объявляем переменную строкового типа.
begin
s:=inttostr(a); // преобразуем число в строку.
for i := 1 to length(s) do // начало цикла.
writeln(s[i]); // вывод каждой цифры на экран.
end;
begin // начало основной программы.
writeln('Введите произвольное число:'); //вывод строки на экран.
read(a); // считываем число, введенное с клавиатуры.
P1(a); // вызов процедуры с параметром.
end.