Записать программу этого уравнения на языке Паскаль

спасибо

var omega, k: real;const b =5; c=3;beginwriteln ('Введите число омега');readln(omega);k := sqrt((sqr(sin(omega))+cos(sqr(omega)))/(b*c/3+3*b*sqr(c)/4));writeln('k принимает значение ', k:2:2);end.