Помогите написать фрагмент программы на основе заданного алгоритма в паскале:

Ввод x, y;

Если (x>0) или (y<0) то m=x+y/xy;

Если (x0) то 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 (x0) then m: = (x-y) / (x+y) ; / / y>0 или y>=0 - у вас ошибка в условии

writeln (m)

end.