Напишите функцию которая возвращает результат следующего действия sqrt(2a+b-c) a,b,c параметры функции функция не должна вызывать ошибок на этапе выполнения

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

function Sqrt(x:real):real;
begin
  Assert(x>=0,'Невозможно извлечь квадратный корень из отрицательного числа');
  Result:=System.Math.Sqrt(x)
end;

begin // иллюстрирующая программа
  var x:=ReadReal('x=');
  Writeln('Sqrt(x)=',Sqrt(x))
end.

Примеры
x= 26
Sqrt(x)=5.09901951359278

x= 0.00000
Sqrt(x)=0

x= -1.4
Sqrt(x)=NaN - см. картинку во вложении, было принято решение "Пропустить".

Если паскаль, то вот

function sqrt2(a, b, c: real): real;
begin
  sqrt2 := sqrt(2 * a + b - c);
end;