дано натуральное четырехзначное число найти число , полученное перестановкой 2 и 3 цифр заданного числа.
Составить в Pascal при помощи div и mod

var n,a,b,c,d:integer;begin read(n);a:=n div 1000;b:=n div 100 mod 10;c:=n div 10 mod 10;d:=n mod 10;n:=1000*a+100*c+10*b+d;writeln(n);end.