решить задачу и составить блок схему..помогите срочно!!!

[Katyushka]

даны числа натурального ряда от 1 до 10.Определить среднее значение суммы этих чисел.

[DM_bite]

OMG))

program xz;
var i,sum: integer;
sr: real;
begin
sum:=0;
for i:= 1 to 10 do
begin
inc(sum, i);
end;
sr:= sum/10;
WriteLn(sr);
ReadLn;
end.