program r2_40; uses crt; var a,b,c,d,g,s:integer; BEGIN clrscr; read(a); read(b); read(c); read(d); s:=((a*1000)+(b*100)+(c*10)+d); writeln('Исходное число:',s:4); g:=b; b:=c; c:=g; writeln('полученное число:',a:4,b:4,c:4,d:4); readln; End.