Набрать программу в паскале которая выполнит расчет по этой формуле

var x,y,p:real;

begin

 write('Введите X= '); readln(x);

 write('Введите Y= '); readln(y);

 p:= sqrt((abs(sqr(x)-2*x+5))/(abs(8*x-y)))-5*x*y-((3*x+y)/abs(x-y));

 writeln(p);

end.