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

Program gt; var a,b,i,q,l: integer; begin readln(a); l: =a; b: =0; while a> 0 do begin q: =a mod 10; b: =b*10+q; a: =a div 10; end; if(l=b)then writeln('yes')else writeln('no'); end.

((1+2): 3+4): 5=1

1+2+3-4+5-6=1

(1+2+3+4): 5+6-7=1

(1+2+3-4+5-6+7): 8=1