program calcul_de_pression;

//uses WINCRT;

VAR a{gamma},b{phi},c,d,e,f,g,h,i,k,l:REAL;

begin
    while 1=1 do begin

        writeln('Entrer a:');

        read(a);

        writeln('Entrer b:');

        read(b);

        c:=a/(a-1);

        d:=b*b;

        d:=c-d;

        e:=2*c;

        f:=sqr(1+e-d);

        g:=f-(4*d*(e-1));

        h:=sqrt(g);

        i:=(1+e-d-h)/(2*d*(e-1));

        k:=1-i;

        l:=EXP(c*LN(k));

        writeln('Le résultat est :',l);

    end;
end.