Составить таблицу значений функции y при изменении аргумента на интервале от а до в с шагом н, если при некоторых значениях аргумента функция неопределена, то вывести соответствующее значение. y=x sin√(x+c-0,00084),a=-2.05,b= -4.05,c=3.4,h=-0.2

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

begin
  var (a,b,c,h):=(-2.05,-4.05,3.4,-0.2);
  var x:=a;
  while x>=b+h/2 do begin
    Writeln(x:5:2,x*Sin(Sqrt(x+C-0.00084)):20:15);
    x+=h
    end
end.