<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
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) 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.