Дано 4 значное число. Найти число образуемое при перестановки…

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.