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

procedure num ( x: integer );var s: string;i: integer;begins := IntToStr(x);for i := 1 to length(s) dowriteln( i, ' цифра: ', s[i] );end;var numeric: integer;beginwrite('Введите число: ');readln(numeric);num(numeric);end.