Ошибка в программе

[Veina]

Нужно просто посчитать по формуле. Выдает ошибку со скобкой в конце. В чем дело? подскажите, пожалуйста

uses crt;
function I(x1,x2,x3,x4,x5,x6,A1,A2,A3,A4,A5,A6: real): real;
begin
 I:=A1*sqrt(1+cos(x1))+A2*sqrt(1+cos(x2))+A3*sqrt(1+cos(x3))+A4*sqrt(1+cos(x4))+A5*sqrt(1+cos(x5))+A6*sqrt(1+cos(x6));
end;

var A1,A2,A3,A4,A5,A6,x1,x2,x3,x4,x5,x6: real;
begin
 clrscr;


 write ('x1='); readln (x1);
 write ('x2='); readln (x2);
 write ('x3='); readln (x3);
 write ('x4='); readln (x4);
 write ('x5='); readln (x5);
 write ('x6='); readln (x6);

 write ('A1='); readln (A1);
 write ('A2='); readln (A2);
 write ('A3='); readln (A3);
 write ('A4='); readln (A4);
 write ('A5='); readln (A5);
 write ('A6='); readln (A6);

 writeln ('I= ', I: 10: 6);

 readkey;
end.

[GetMax]

Вы в основной программе вызываете функцию без параметров. Вот так нужно ее вызвать:

writeln ('I= ', I(x1,x2,x3,x4,x5,x6,A1,A2,A3,A4,A5,A6):10: 6);

[Veina]

сейчас стала запускать. ввела х1=0,033765 и сразу вылетела с ошибкой

[GetMax]

Какая ошибка?

[Вадим Мошев]

1. Какую ошибку пишет?
2. Если вы действительно ввели как х1=0,033765, то ошибку и будет вызывать. Invalid numeric format. Для записи десятичных дробей надо применять символ "точка", то есть, записать:

х1=0.033765