// PascalABC.NET 3.3, сборка 1561 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var d,f,g,h:real;
Write('Введите d,f,g,h: '); Read(d,f,g,h);
var m:=(d-f)/(g+h);
var N:real;
if m<0 then N:=Abs(m)<br> else if m>0 then N:=Sqrt(m)
else N:=d*d;
var P:real;
if (d>1) and (d<2) then P:=N-d<br> else P:=1/N;
Writeln('m=',m,', N=',n,', P=',p)
end.
Пример
Введите d,f,g,h: 3.7 -5.15 6 3.14
m=0.968271334792123, N=0.984007792038316, P=1.01625211516726