Пусть ученик неуспевающий, если сумма его отметок меньше 2+2+3+3=10.

var
  count_losers, sum, current_sum, mark, i, j, n: integer;

begin
  read(n);
  count_losers := 0;
  for i := 1 to n do
  begin
    current_sum := 0;
    for j := 1 to 4 do
    begin
      read(mark);
      current_sum := current_sum + mark;
    end;
    if current_sum < 10 then
      inc(count_losers);
    sum := sum + current_sum;
  end;
  writeln('Неуспевающих учеников: ', count_losers);
  writeln('Средняя сумма четырёх отметок: ', sum / n);
  writeln('Средняя отметка: ', sum / 4 / n);
end.

Пример ввода:
4
2 2 2 5
2 2 5 2
2 5 2 2
3 2 2 2

Пример вывода:
Неуспевающих учеников: 1
Средняя сумма четырёх отметок: 10.5
Средняя отметка: 2.625