Составьте программу вычисления среднего арифметического целых чисел из отрезка [-6; 33] нужно

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.