паскаля не помню, вот решение в общем виде:
переменные: x, b, y - тип с плавающей точкой
begin
readln(x);
readln(b);
if x<>0 and x<>b then //одз проверяем
y:=(x*2)/(x-b)
end;
end.
