Вопрос, который вызвал трудности

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

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

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

Procedure num ( x: integer );
var s: string;
i: integer;
begin
s := IntToStr(x);
for i := 1 to length(s) do
writeln( i, ' цифра: ', s[i] );
end;

var numeric: integer;
begin
write('Введите число: ');
readln(numeric);
num(numeric);
end.