Дано четырехзначное число. Найти число, образуемое при перестановке второй и третьей цифр заданного числа.

readln(n);n:=(n div 1000)*1000+((n div 10)mod 10)*100+((n div 100)mod 10)*10+n mod 10;writeln(n);