Дано 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.