Verified answer

procedure vivod(n: integer);

begin

   repeat

       writeln(n mod 10);

       n := n div 10;

   until n = 0;

end;

PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

procedure revnum(num: integer) := num.ToString.Reverse.Printlines;

begin

 Revnum(2456);

end.