While17. дано целое число n (> 0). используя операции деления нацело ивзятия остатка от деления, вывести все его цифры, начиная с самой правой(разряда единиц). (pascal abc)

Var
  n, x, a: integer;
begin
write('Введите число: ' );
readln(n);  
while (n > 0 ) do
   begin
   a := n mod 10;
   x := x * 10 + a;
   n := n div 10;
   end; 
writeln('ответ: ', x); 
end.