Написать программу, которая вводит с клавиатуры последовательность из 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.