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

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.