Написать программу, которая вводит с клавиатуры последовательность из 10 вещественных чисел, считает сумму и среднее арифметическое этих чисел. нужно составить блок-схему для этой задачи

const
n=10;
var
a:array[1..n] of real;
sr,s:real;
i:integer;
begin
for i:=1 to n do begin
writeln(Введите чило №,i);
readln(a[i]);
s:=s+a[i];
end;
sr:=s/n;
writeln(Сумма =,s, Среднее арифметическое =,sr);
end.