Даны действительные числа x,y. Вычислить z

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
  var x,y,z:real; Read(x,y); z:=xgt;yx-y:y-x+1; Writeln(z)
end.

Zgt;0, т.к. если Xgt;У, выражение X-Уgt;0
и если Xlt;У, то выражение У-Х+1gt;0
И даже если У=Х, то выражение У-Х+1gt;0