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

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.