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

VB.Dim i As Stringi=InputBox ("Введите число") If i=StrReverse (i) Then MsgBox ("Ура! Число " & i & " является палиндромом.") ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535Pascal. var n, m, p: word beginwrite ('Введите число: '); 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 thenwriteln ("Ура! Число является палиндромом.") readln; end. Помог? Жми Лучший