помогите решить задачу на паскале. F(x)=2cos корень x+0.5

program prj1;
function f(x: real): real;
begin
f:=2*cos(sqrt(x)+0.5);
end;
var x: real;
begin
writeln('x = '); read(x);
writeln('f(x) = ',f(x));
readln;
end.