Написать фрагмент программы на основе заданного алгоритма в паскале: ввод x, y; если (x> 0) или (y< 0) то m=x+y/xy; если (x< 0l или =y> 0) то m=(x-y) (x+y) ; вывод m;

Обратите внимание, если во втором условии y>=0, то необходимо заменить знак в программе

program ryazantsev;
var x,y,m:real;
begin
m:=0;
readln(x, y);
if (x>0) and (y<0) then m:=(x+y)/(x*y);
if (x<0) or (y>0) then m:=(x-y)/(x+y); //y>0 или y>=0 - у вас ошибка в условии
writeln(m)
end.