С клавиатуры вводятся оценки пятнадцати учащихся. Найти среднее арифметическое этих оценок. И блок-схема еще.

конечно .pas! простой вопрос!

февраль-3 месяц зимы

май-3 месяц весны

август-3 месяц лета

сентябрь не знаю как связать

var  a: array [1..10] of integer;

n,i: integer;

begin

  {vvod massiva skopirovat suda}

  for i: = 1 to 10 do begin

      if a[i] mod 10 = 0 then

          n: =n+1;

  end;

  writeln(n);

end.

ошибка в том что натуральный логарифм (-1) не существует

program summa; uses crt; var n,i: integer; s: real;

p1,p2: integer; begin clrscr; writeln ('vvedite n'); readln (n); s: =0;

p1: =-1;

p2: =2; for i: =1 to n do

begins: =s+p1/p2;

p1: =-p1;

p2: =p2*2;

end; writeln ('s=', s); readln; end.