Дано шестизначное число. поменяйте местами первую и последнюю цифры.

мальчик с пальчик, карлик нос,буратино,карабас барабас,змей горыныч, царевна лягушка,

р треугольника= сложить все стороны

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.

а-1; мама-4; весна-5 - количество букв

а-1; шея-2; мама-2; огурец-3 - количество гласных

а-0; шея-1; мама-2; огурец-3 - количество согласных