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

var s:string;a,bug:integer;n1,n2:char;begin;readln(a);str(a,s);n1:=s[2];n2:=s[3];s[3]:=n1;s[2]:=n2;val(s,a,bug);writeln(a);end.