Помогите пожалуйста!
Даны x, y. Написать программы, позволяющие получить:   / |xy| + 5
В ПАСКАЛЕ!

var x,y,r:real;
begin
write ('Введите 2 числа х и у '); Readln(x,y);
r:=x*x+y*y/abs(x*y)+5;
writeln( 'Значение выражения = ' , r);
end.