Дан массиы, содержащий 50 элементов. Найти среднее арифмитическое элементов массива, состоящих на местах кратных 5

Var a:array[1 ... 50] of integerl;

sr:real;

kol, i:integer;

begin

for i:=1 to 50 do

readln (a[i]);

kol:=0;

sr:=0;

i:=5;

while i<=50 do

begin

sr:=sr+a[i];

kol:=kol+1;

i:=i+5;

end;

writeln (sr/kol);

end.