ПОМОГИТЕ!! На языке pascal вычислить среднее арифметическое чисел от 11 до 20. ПАЖАЛУЙСТА!!!

uses crt;var i, j, n: integer;SA: real;beginclrscr;j:=0;n:=0;for i:=11 to 20 do beginj:=j+i;inc(n);end;SA:=j/n;writeln('SA - ', SA:4:1); //SA - это среднее арифметическое.end.