Question

Написать программу, в которой используется процедура Por(K), меняющую порядок следования цифр целого положительного числа K на обратный (K — параметр целого типа, являющийся одновременно входным и выходным).
Sample Input 1:

643254

Sample Output 1:

452346

Sample Input 2:

479554

Sample Output 2:

455974

Решите пожалуйста на Паскале

Answer 1

===== PascalABC.NET =====

procedure Por(var k:integer);

begin

 var m := 0;

 while k > 0 do

 begin

   m := m * 10 + k mod 10;

   k := k div 10

 end;

 k := m;

end;

begin

 var n := ReadInteger('Введи натуральное число:');

 Por(n);

 Print(n)

end.