Uses crt; var i: shortint; sr: real; begin clrscr; for i:=-6 to 33 do sr:=sr+i; sr:=sr/40; writeln('среднее арифметическое = ',sr:4:1); end.