Составить таблицу значений функции Y при изменении аргумента на интервале от А до В с шагом Н, если при некоторых значениях аргумента функция неопределена, то вывести соответствующее значение. y=x sin√(x+C-0,00084),A=-2.05,B= -4.05,C=3.4,H=-0.2

const    A = -2.05;    B = -4.05;    C = 3.4;    H = -0.2;var    x: real;begin    x := A;    repeat        if x + C - 0.00084 < 0 then            Writeln('x = ', x:10:5, ' y - не определен')        else            Writeln('x = ', x:10:5, ' y = ', (x * sin(sqrt(x + C - 0.00084))):10:5);        x := x + H;    until x <= B;end.