Напишите пожалуйста программу в паскале(фотка ниже)

Question

Напишите пожалуйста программу в паскале(фотка ниже)

---

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (b,x):=ReadReal2('Введите b и х:');
  var v:real;
  if x<2 then v:=b*b-Sqrt(x-b)<br>  else v:=(b*x-1)/Ln(x-b);
  Writeln(v)
end.