Вводится последовательность из n целых чисел. Для каждого числа последовательности вывести новое число, которое появляется после записи цифр числа в обратном порядке. Функцией оформить определение нового числа для заданного. На Pascale или C++

const n=5;var x : array[1..n] of integer;   i: integer;function f(a:integer):integer;var b:integer;beginb:=0;while a>0 do begin b:=b*10+a mod 10; a:=a div 10; end;f:=b;end;beginwriteln('Введите ',n,' чисел:');for i:=1 to n do read(x[i]);readln;for i:=1 to n do write(f(x[i]),' ');writeln;end.Пример:Введите 5 чисел:45 3954 6 406 1837254 4593 6 604 27381