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.