Составить программу для решения этой формулы (Паскаль)

//прога на Pascal`e
var
x: real;

function f (a:real):real;
begin
f:= arcsin (sqr(a)) + sqr(cos(a));
end;

begin
write ('Введите x: ');
readln (x);
write (f(x));
end.