Отыскать среднее арифметическое всех частей массива, которые делятся на 5

const n=10;

var a:array [1..n] of integer;

i,s,k:integer;

begin

write('Массив: ');

for i:= 1 to n do

begin

a[i]:=random (16);

write (a[i],'  ');

if a[i] mod 5 = 0 then

begin

s:=s+a[i];

k:=k+1

end

end;

writeln;

if klt;gt;0 then writeln('Среднее арифметическое частей массива, которые делятся на 5, одинаково: ',s/k:0:3)

else writeln ('Частей массива, которые делятся на 5, нет.')

end.