Вот
const a:array[1..15] of real=(0.5,1.85,0.4,1.5,0.9,1.2,1.8,0.6,0.3,1.1,1.4,0.2,1.2,1.6,0.5);
var i: integer;
s,k:real;
begin
s:=0;
for i:=1 to 15 do
s:=s+a[i];
i:=i+1;
writeln('Мёда запас: ',s);
k:=s/15;
write('Средние коллисество мёда в горшке: ',k);
end.