exitcode 205

[Beerhazard]

Люди помогите пожалуйста не понимаю в чем проблема
по заданию надо вычислить среднее геометрическое элементов y[i]>0 массива Y(28 элементов),который заполняется по формуле y[i]=(i-5)^i-1
вот код подскажите в чем ошибки

program zadanie;
const n=28;
var y:array [1..n] of real;
sg,pr:real;
i,kolvo:integer;
begin
pr:=1;
sg:=0;
kolvo:=0;
for i:=28 downto 1 do
begin
y[i]:=exp((i-1)*ln((ABS(i-5))));
if y[i]>0 then
begin
pr:=pr*y[i];
kolvo:=kolvo+1;
sg:=pr/kolvo
end;
end;
writeln ('Массив');
for i:=1 to n do
write ('  ',y[i]:4);writeln;
writeln ('Среднее геометрическое элементов удовлетворяющих условию y[i]>0 равно ',sg)
end.

[MadReason]

переполнение где-то...
попробуй:

y:array [1..n] of extended;
sg,pr:extended;

[Beerhazard]

теперь exitcode 200

[Stilet]

переполнение где-то...

На моменте когда i становится равно 5-ти
Тогда формула дает NaN.
проверку нужно пхнуть на это.
Ну и конечно же до 28 не хватит процессору силенок.

[Beerhazard]

всем спасибо большое за помощь теперь вроде как работает =)