Если включить флажок ,,С учётом регистра ,, при поиске программа различает​

смотри описание блок схемы на картинке

информация, насколько я помню

в клетке а1 - 8

              а2 - 80

              а3 - 72

              в1 - 20

              в2 - 2 

var i,s,k: integer;

begin

for i: =-4 to -15 do begin

      inc(s,i); inc(k)

end;

write('ср арифм = ',s/k)

end.