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

function Reverse(a: integer): string; // описание функции.
begin
Result := ReverseString(inttostr(a)); // преобразуем переданное в качестве параметра число в // строку и инвертируем её.
writeln('Ответ: ', Result); // вывод на экран строки.
end;

var // начало основной программы.
b: integer; // объявляем переменную целочисленного типа.
begin
writeln('Введите целое число:'); // вывод на экран строки.
readln(b); // считываем введенное с клавиатуры число.
Reverse(b); // вызываем функцию и передаем в качестве параметра введенное число.
end.