Var z,m,n:real; begin writeln('vvedite M: ');readln(m); writeln('vvedite N: ');readln(n); z:=m-n; z:=z*2; writeln(z); readln; end.