uses
SysUtils;

function ReverseNumber(number: Integer): Integer;
var
reversedNumber, remainder: Integer;
begin
reversedNumber := 0;
while number > 0 do
begin
remainder := number mod 10;
reversedNumber := reversedNumber * 10 + remainder;
number := number div 10;
end;
Result := reversedNumber;
end;

var
number: Integer;
begin
number := 123;
Writeln('Original number: ', number);
Writeln('Reversed number: ', ReverseNumber(number));
end.