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.


Помог? Жми Лучший