Question

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