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

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)  else v:=(b*x-1)/Ln(x-b);  Writeln(v)end.