Помогите сделать задание (язык паскаль)

[Maserati]

Помогите сделать задание.Надо использовать или "Function" или "Procedure".

[Stilet]

function f(a:real):real;
begin
 f:=sqrt(3/(1+a))/(1-a*a*a);
end;
const b=0,c=0,h=0;
var x,y,z,a:real;
begin
 a:=b; while x<=c do begin
  x:=f(a); y:=f(a*a);z:=f(sin(a));
  writeln(sqr(x+y)/z);
  a:=a+h;
 end; readln;

P.S. Тригонометрия здесь в радианах.