Решить данную задачу используя функции Z:=(sqr(a)+4)/(sqr(sin(sqr(a)+4))*(sqr(cos(a))) используя процедуру sqr(x)+4 — Pascal(Паскаль)

uses crt;
var z,a:real;
 function f(a:real):real;
  begin
    f:=(sqr(a)+4)/(sqr(sin(sqr(a)+4)))*(sqr(cos(a)));
  end;
begin
     writeln('a= ');
     readln(a);
     z:=f(a);
     writeln(z:0:10);
end.