Напишите функцию function reverse (n:integer):integer (Pascal), которая переставляет цифры числа в обратном порядке .

function reverse(n:integer):integer;var m:integer;beginm:=0;while n>0 do begin m:=m*10+n mod 10; n:=n div 10; end;reverse:=m;end;beginwriteln(reverse(12345));end.Результат:54321