program ForMargarita9;
var a, x, y : real;
begin
    write('Enter a: ');
    readln(a);
    write('Enter x: ');
    readln(x);

    writeln((1 - a) / x);
    y := sqrt(ln((1 - a) / x));
    writeln('y = ' + y);
end.