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