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

Var a: array [1… 20] of integer; i,s1,s2: integer; BeginFor 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. Ну как всегда: вопросы — в личку)