Составить таблицу значений функции Y при изменении аргумента на промежутке от

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 lt; 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 lt;= B;
end.