Представьте десятичные числа в виде суммы степеней десятки: 328 2346 9872,123 10011

3*10в степени 2+2*10 в ст.1+8*10 в ст.0 2*10 в ст3+3*10 в ст.2+4*10 в ст.1 +6*10 в ст.0 9*10 в ст. 3+ 8*10в ст.2+7*10 в ст.1+2* 10 в ст.0+1*10 в ст. -1+2*10 в ст.-2+3*10 в ст.-3 1*10 в ст.4+0*10 в ст.3+0*10 вст.2+1 *10 в ст.1+1*10 в  ст. 0

однажды мне подарили ноутбук.до этого был старый компьютер.включив ноутбок, я понял, что он намного лучше бережет зрение, нежели компьютер.я стал беречь его, что научило   меня аккуратности.я купил диски, чтоб установить программное обеспечение на ноутбуке в случае форматирования жесткого диска.он мне стал хорошим другом.

 

что то вроде такого)

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.