Pascal  нужно написать программу с алгоритмом 3.1 и 3.2 , 6 

var  n, i, sum, kol, age :integer;  sr :real;begin  sum:= 0; kol:= 0;  readln(n);  for i:= 1 to n do  begin    readln(age);    sum:= sum + age;    inc(kol);  end;  sr:= sum/kol;  writeln(sr);end.