Volumn 1  P.146  (2)

program ReverseNum (input, output);
uses wincrt;
var Num : integer;
(**** Procedure ***)
procedure Reverse (x: integer);
var y, z :integer;
begin
    y:= 0;
    z:= x;
    while x<>0 do
      begin
        y:= y * 10 + x mod 10;
        x:= x div 10
      end;
    writeln('The reverse number of ', z, ' is ', y)
end;
(**** Main Program ****)
begin
 write('Please enter a positive integer: ');
 readln(Num);
 Reverse(Num)
end.