помогите пожалуйста решить программу на Паскале

[alex_dark]

нуна очень срочно уже )))

[IT-man]

program Full_Zero;
uses crt; 
function f(var a:real;):real;
begin
if a<0 then f:=cos(a-0.129)
else if a>0 then f:=sqrt(sin(a)/cos(a));
else f:=ln(sqr(a)+0.129);
end;
var z:real;
    x,y:real;
begin
clrscr;
z:=0;
x:=-0.127	
repeat
y:=f(x) 
z:= z+y;
x:=x+1.0204;
until x>20,281;
writeln('z=',z:6:4);
readln;
end.

[alex_dark]

псб )

а что значит Invalid floating point operation ? мне показывает программа