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

Предыдущий
вопрос Следующий
вопрос

program PrintDigits;

var
num, digit: integer;

begin
writeln('Введите число:');
readln(num);

while num > 0 do
begin
digit := num mod 10;
writeln(digit);
num := num div 10;
end;
end.