Question

while a<>0 do
Begin
C:=a mod 10;
Writeln ( c );
A:= a div10;
End;
Что находит алгоритм и что получено при а= 1098 и а= 2315