Задача с While по Pascal

[PascalABC]

Дано целое число N (> 0). Используя операции деления нацело и взя-
тия остатка от деления, вывести все его цифры, начиная с самой правой
(разряда единиц).

[Serge_Bliznykov]

в поиск сходить не желаете?


p.s. а назвали бы тему адекватно, внизу, в "Похожих темах" наверняка что-нибудь походящее само бы всплыло...

[PascalABC]

В поиске нет, искал. Искал и с помощью гугла, ничего не находит!
Я алгоритм решения задачи не могу понять (Используя операции деления нацело и взятия остатка от деления)

program Z17W;
uses crt;
var N:integer;
begin
readln(N);
while N>0 do
begin
{--Что тут?--}
writeln(N);
end;
end.

[Abstraction]

Что является остатком от деления целого положительного числа на 10? Что является (целочисленным) частным?

[Аватар]

см. операции div и mod

[Serge_Bliznykov]

program Z17W;
uses crt;
var N:integer;
begin
readln(N);
while N>0 do
begin
   {--Что тут?--}
  writeln(N mod 10);
  N := N  div 10;
end;
end.

[kostopraw]

простите неверного,возможно опоздал)
Вот так должно выглядеть:

var a1,a2,a3 : integer;
begin
write ('Введите двузначное число: ');
readln (a1);
a2:=a1 div 10;
a3:=a1 mod 10;
write ('Десятки =',a2,     'Единицы =',a3);
end.

через div и mod)

[whatever]

Сообщение от kostopraw

простите неверного,возможно опоздал)

Всего то года на полтора, ничего страшного