немогу доделать программу

[IceFlame1292]

VAR
y:ARRAY[1991..2001] of REAL;
k,General_Income:INTEGER;
BEGIN
General_Income:=0;
For k:=1991 to 2001 do
begin
y[k]:=100*(cos((3k-5,23)/(8,34-2*3.14))+abs(sin2k));
WriteLn(k,ROUND(y[k]):15);
General_Income:=General_Income+ROUN D(y[k]);
end;
WriteLn('General_Income was ',General_Income);
ReadLn;
END.
выдает ошибку над 3к error 89:")"expected.непойму что надо сделать что бы не было ошибки!подскажите плиииз!

[k0tone]

поставь знак умножения "*". И там где 3.14, вместо пропиши Pi
короче выглядеть должно вот-так:
y[k]:=100*cos((3*k-5.23)/(8.34-2*Pi))+abs(sin(2*k));

[IceFlame1292]

поставил * дальше такую же ошибку показывает над ,в числе 5,23???

[k0tone]

Сообщение от IceFlame1292

поставил * дальше такую же ошибку показывает над ,в числе 5,23???

поставь не запятые а точки:
5,23 -> 5.23

[IceFlame1292]

спс огромное

[IceFlame1292]

теперь "s" подчеркивает в записи(sin(2*k));пишет неизвестный indentifier.не пойму что он требует

[IceFlame1292]

а все разобрался