Даны x, y. Составить программу вычисления значения выражения: (Pascal)[tex] \frac{|x-y|+1}{|x+y|} [/tex]

var x,y:real;beginreadln(x,y);if x+y<>0 then writeln((abs(x-y)+1)/abs(x+y):5:2)else writeln('Деление на 0');end.Пример:5 70.25