процедуры и функции

[DeadWind]

пожалуйста помогите решить не могу решить.

Даны три натуральных числа . Выяснить являются ли хоть одно из них палинромом ("перевертышем"),т.е. таким числом, десятичная запись которого читается одинаково слева направо и справа налево.

[Кольша]

то есть число типа 11 33 55 да?

[denisbrain]

Сообщение от Кольша

то есть число типа 11 33 55 да?

var s:string;
x,i:integer;
   s1:string;
   s2:string;
begin
I:=12321;
s:=inttostr(i);
s1:=inttostr(i);
for x:=length(s) downto 1 do s2:=s2+s[x];
if s2=s1 then
showmessage(s2+'='+s1)
else showmessage('Не полином!')

[deathNC]

DeadWind, насколько мне известно, кросспостинг запрещён: http://programmersforum.ru/showthread.php?t=187952
Вы этим отнимаете лишнее время у людей