Вывести трехзначное число. определить, является ли оно палиндромом

Vb. dim i as string i = inputbox("введите число") if i = strreverse(i) then msgbox("ура! число " & i & " является палиндромом.") '  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 pascal.  var n, m, p: word  begin write('введите число: ');   readln(n); m : = n; p : = 0;   while m > 0 do begin       p : = p * 10 + m mod 10;       m : = m div 10;   end; if n = p then writeln("ура! число   является палиндромом." )readln; end. ? жми  лучший

Началось все с самого простого калькулятора, который мог переводить из десятичной системы счисления в двоичную, восьмиричную и шестнадцатеричную. потом один из пользователей запросил возможность переводить число из десятичной системы счисления в схему с любым другим основанием. так появился калькулятор в котором можно было указывать основание системы счисления в которую надо перевести десятичное число. вводится число ff, вводится основание системы счисления этого числа - 16. потом, основание системы счисления, в которую надо переобразовать , это число- 10. получается результат 255 в десятичной системе счисления.

Var s,sgn,eps: real;     i: integer; begin   write('точность вычислений: ');   readln(eps);   s: =1;   sgn: =  -1;   i: =3;   repeat     s: =s+sgn/  i;     sgn: =  -  sgn;     i: =i+2;   until 8/i< eps;   writeln('число пи:   ',s*4);   writeln('точное значение пи: ',pi); end.     точность вычислений: 1.0e-6 число пи:   3.14159240358966 точное значение пи: 3.14159265358979