Công thức:
P:=(15*sqrt(x)-11)/(x+2*sqrt(x)-3)-(3*sqrt(x)-2)/(sqrt(x)-1)-(2*sqrt(x)+3)/(sqrt(x)+3);
Chương trìn nhập x tính P
uses crt;
var x,P:real;
begin
clrscr;
readln(x);
P:=(15*sqrt(x)-11)/(x+2*sqrt(x)-3)-(3*sqrt(x)-2)/(sqrt(x)-1)-(2*sqrt(x)+3)/(sqrt(x)+3);
write(P:0:2);
readln;
end.