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

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