Даны 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.