Дан массив a (n). Найти среднее арифметическое, количество и произведение

отрицательных элементов, стоящих на нечетных местах. Не использовать mod, использовать оператор цикла repeat.

Const n=5;

var k, i:integer; p, s:real; a:array[1 ... n] of real;

begin

for i:=1 to n do read (a[i]) ;

k:=0; p:=1; s:=0; i:=1;

repeat

if a[i]<0 then begin p:=p*a[i]; s:=s+a[i]; k:=k+1 end;

i:=i+2

until i>n;

if k>0 then write (s/k,' ', k,' ', p) else write (0,' ',0,' ',0)

end.