Помогите решить задачку

Uses crt;

var a:real;
var b:real;
var c:real;
var d:real;
var h:real;

begin
        вводим значения
        writeln('Enter a:'); readln(a);
        writeln('Enter c:'); readln(c);
        writeln('Enter d:'); readln(d);
        writeln('Enter h:'); readln(h);

        вычисляем
        b := d - sqrt(c / (c + абс(cos(a * h * h) - sin(a * h))));

        выводим итог
        writeln('b = ', b:15:15);

        задержка
        readln(a);
end.