var a,b,x:real;
Begin
Write('Введите число A: '); Readln(A);
Write('Введите число B: '); Readln(B);
if A > B then X:=B*A+1
         else if A = B then X:=-10
                       else if (A < B) and (B <> 0) then X:=(A-5)/B
                                                    else Writeln('Решений нет :(');
end.