Compile and Execute Pascal Online

Program Reverse_num;
var n,rev:integer;
begin
    rev:=0;
    writeln('Input a number');
    readln(n);
    while n>0 do
        begin
            rev:=rev*10+(n mod 10);
            n:=n div 10
        end;
    writeln('The number in reverse order is ',rev);
end.