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

Срочно нужно 

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