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);
<span>end.</span>
<span> новый международный стандарт Unicode, который отводит два байта, и поэтому с его помощью можно закодировать не 256, а 65536 различных символов
соотвественно это 4 </span>