Среднее геометрическое.Паскаль.Как изменить...

[Maya Epos]

Здравствуйте,подскажите пожалуйста,как заменить в данной программе среднее арифметическое на среднее геометрическое?

Program lab6;
const n=13;
var
i:integer;
x,sum,t:real;
begin
x:=1;
t:=0;
sum:=1;
for i:=1 to n do
begin
x:=x*((-1)*exp((i+1)*ln(0.6))-2*sqr(cos(i)));
if (x>0) then
begin
sum:=sum+x;
t:=t+1;
end;
end;
if (t=0) then
begin
sum:=0;
end
else
begin
sum:=sum/t;
end;
writeln ('sum=',sum);
readln;
end.

[was3110]

вместо sum:=sum+x;
написать sum:=sum*x;
Да и переменную бы стоило переименовать (не sum уже).
Но переименовывайте во всех строках...