var i,s,k:integer;
begin
for i:=-4 to -15 do begin
inc(s,i); inc(k)
end;
write('Ср арифм = ',s/k)
end.
