Дано 4-значное число. Найти: 1) число, полученное при прочтении его цифр справа налево; 2) число, образованное перестановкой двух первых и двух последних цифр заданного числа; 3) число, образованное перестановкой второй и четвёртой цифр заданного числа.

program znaka4;var a:integer;beginrepeatreadln(a);until (a>1000) and (a<10000);writeln('1 zadanie= ',a mod 10,a div 10 mod 10,a div 100 mod 10,a div 1000);writeln('2 zadanie= ',a div 100 mod 10,a div 1000,a mod 10,a div 10 mod 10);writeln('3 zadanie= ',a div 1000,a mod 10,a div 10 mod 10,a div 100 mod 10);end.