// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var d,f,g,h:real;
Read(d,f,g,h);
var m:=(d-f)/(g+h);
var n,p:real;
if m<0 then n:=Abs(m)<br> else if m>0 then n:=Sqrt(m)
else n:=d*d;
if d.Between(1,2) then p:=n-d
else p:=1/n;
Writeln('m= ',m,', N= ',n,', P= ',p)
end.
Пример
-1.4 2.7 10 3.06
m= -0.313935681470138, N= 0.313935681470138, P= 3.18536585365854