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.