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

Question

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

Answer 1

Begin
  var a: integer;
  readln(a);
  foreach c: char in a.ToString().Reverse() do writeln(c);
end.

Answer 2

Procedure vivod(var n:integer);
var
   x:integer;
begin
   repeat
      x:=n mod 10;
      writeln(x);
      n:=n div 10;
  until n=0;
end;