Переменной z присвоить разность величин m и n, увеличить значение z в 2 раза.

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.