Паскаль! Дан массив из 20 действительных чисел, определить среднее арифметическое элементов с четными индаксами и среднее арифметическое с нечетными индаксами

Var a: array [1 ... 20] of integer; i, s1, s2:integer;

Begin

For i:=1 to 20 do begin

Writeln ('введите элемент ', i) ; read (a[i]) ;

If i mod 2=0 then s1:=s1+a[i] else

s2:=s2+a[i];

end;

Writeln ('Среднее ариф. четных ', s1/20,'; А нечетных ', s2/20) ;

readln;

end.

Ну как всегда: вопросы - в личку)