program kk;
var a,b,m,n,c:real;
; begin
; writeln('n=');
; readln(n);
; a:=int(n/10);
; b:=c-a;
; m:=b*1000+n;
; writeln('m=' ,m:7:2);
; readln(m);
; END.