level2task10

program level2task10;

var
  x, y : integer;

begin
  write('Введите число, которое мы будем разворачивать: ');
  readln(x);
  y := 0;
  while x > 0 do
  begin
    y := y * 10 + x mod 10;
    x := x div 10;
  end;
  writeln('Результат: ', y);
end.