30 .составить блок-схему : определить среднее арифметическое последовательности чисел a[1], a[2], … a[n]. числа n, a[1], a[2], … a[n] вводятся с клавиатуры.

//Блок-схема во вложении
var n,a,i:integer;
r:real;
begin
readln(n);
for i:=1 to n do
begin;
readln(a);
r:=r+a;
end;
r:=r/n;
writeln(r);
end.