Напишите функцию 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.