Найти среднее арифметическое элементов массива кратных 5. Паскаль.

var a:array[1..1000] of integer; k,s:integer; sr:real; begin write('Введите количество элементов массива n='); readln(n); for i:=1 to n do read(a[i]); writeln; k:=0; s:=0; for i:=1 to n do if a[i] mod 5 = 0 then begin s:=s+a[i]; k:=k+1; end; sr:=s/k; writeln('Среднее арифметическое элементов массива кратных 5 = ',sr); end.