Составить программу в pascal abc. cos^2x-5 a= √x^2+3

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

function f (a:real):real;
begin
f:= (sqr(cos(a)) - 5) / (abs(a) + 3);
end;

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