Написать программу, в которой используется процедура por(k), меняющую порядок следования цифр целого положительного числа k на обратный (k — параметр целого типа, являющийся одновременно входным и выходным).
sample input 1:
643254
sample output 1:
452346
sample input 2:
479554
sample output 2:
455974
решите на паскале
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.