Program yy2_39;
uses crt;
var x,y,a,b,c,d,h,l:integer;
BEGIN
clrscr;
write('vvedite chetirex znachnoe chislo ');
writeln;
readln(a);
readln(b);
readln(c);
readln(d);
writeln;
y:=a*1000+b*100+c*10+d;
writeln(y:4);
h:=a;
a:=b;
b:=h;
l:=c;
c:=d;
d:=l;
y:=((a*1000)+(b*100)+(c*10)+d);
writeln( ' poluchim ',y);
readln;
End.