Составьте блок-схему и напишите программу для нахождения среднего арифметического всех натуральных трехзначных чисел на отрезке [300; 900].

Var n,i,sum: integer; sr: real; begin   n: =0; for i: =300 to 900 do begin   sum: =sum+i;   n: =n+1;   end;   sr: =sum/n;   writeln ('srednee=',sr);   end.