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

Program znaka4;

var a:integer;

begin

repeat

readln (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.