Проверьте, правильно ли я записал математическую формулу в паскаль

[Женька Good]

2sinksin(2k-1.5)cos(2k+1.5)-6



2*sin(k)*sin(2*k-1.5)*cos(2*k+1.5)-6

[rUs_LAN]

кажется правильно

[Женька Good]

а вот эти:
|cosk^2-0.51|sin(3k-4)-4.44

ABS(cos(k*k)-0.51)*sin(3*k-4)-4.44;

-----------------------------------------
(xy)^1/4

exp(0.25*ln(x*y);

[rUs_LAN]

abs(cos(k) * cos(k) - 0.51) * sin(3 * k - 4) - 4.44
помоему должно быть так

[Женька Good]

В строке

z:=exp(ln(x*y)*0.25);

пишет ошибку 207,
x=-84.1; y=1112237498.4
как я понимаю, то из-за того, что ln из отрицательного числа.
как это исправить?

Program PR2;
Uses CRT;
Var x:real;
    y:real;
    z:real;

Procedure Sumproizv(Var x:real; Var y:real);
Var k:integer;
    xn:real;
    yp:real;
begin
x:=0;
y:=1;
For k:=1 to 14 do
 begin
 xn:=2*sin(k)*sin(2*k-1.5)*cos(2*k+1.5)-6;
 x:=x+xn;
 yp:=abs(cos(k) * cos(k) - 0.51) * sin(3 * k - 4) - 4.44;
 y:=y*yp;
 end;
 Writeln('Summa ravna ==> ',x:3:1);
 Writeln('Proizvedenie ravno ==> ',y:3:1);
end;

Procedure endd(z:real; y:real; x:real);
begin
z:=0;
z:=exp(ln(x*y)*0.25);
Writeln('Rezultat ==> ',z:3:1);
end;


Begin
CLRSCR;
textcolor(6);
sumproizv(x,y);
Writeln;
textcolor(5);
endd(x,y,z);
readkey
end.

[rUs_LAN]

google

 Function stn(Var chislo, stepen:Real) of Real;
     Var per:real;
     Begin 
      Per:= Abs(chislo);
      If chislo < 0 Then Pow:= (-1)*Exp((stepen)*Ln(per))
       Else Pow:= Exp((stepen)*Ln(per));
     end;

вот здесь можно почитать

add там дальше правильная функия.