дано 4 значное число. найти число образуемое при перестановки 2 и 3 цифры числа

Var a, b, c, d:integer;

begin

readln (a) ;

c:=a div 100 mod 10;

d:=a div 10 mod 10;

b: = (a div 1000) * 1000+d*100+c*10 + (a mod 10) ;

writeln (b) ;

end.

---

короткий вариант:

var a, b:integer;

begin

readln (a) ;

b: = (a div 1000) * 1000 + (a div 10 mod 10) * 100 + (a div 100 mod 10) * 10 + (a mod 10) ;

writeln (b) ;

end.