Даны четыре целых числа. Определить, сколько из них четных
Пржалуйста нужно до зватра (C++) ​

папирусы хранили в виде свитков, сворачивая длинную папирусную ленту, склеенную из отдельных листов, в трубку. 

4 клетки вниз и 7 вправо                                                                                                                           

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.

один, два, три, четыре, пять

12345