В классе 35 человек. Поочередно вводятся оценки воспитанников за контрольную работу.

Var
  eval: array[1..35] of byte;
  i, good: integer;
  sr: real;

begin
  good := 0;sr := 0;
  for i := 1 to 35 do
  begin
    write(i, '.) ');readln(eval[i]);
    sr := sr + eval[i];
    if eval[i] = 5 then inc(good);
  end;
  sr := sr / 35;
  writeln('Всего пятерок: ', good);
  writeln('Средний бал: ', sr:0:2);
end.