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.