program wefwe;

uses crt;

type
    peoples = record
      familiya: string;
      ocenka: byte;
 end;

var
e: array [1..50] of string;
p: array [1..100] of peoples;
o: array [1..50, 1..50] of integer;
i,l,d,ex,ot,hor,yd,all:integer;

begin
write('Введите количество учеников: ');
readln(d);
write('Введите количество экзаменов: ');
readln(ex);
randomize;
for i:=1 to d do
  begin
  write('Введите имя ', inttostr(i), ' ученика: ');
  readln(p[i].familiya);
  end;

for i:=1 to d do

  begin
  p[i].ocenka:=0;
    for l:=1 to ex do
      begin
    with p[l] do
      begin
        e[i]:=('Экзамен ' + inttostr(i));
        write('Введите оценку за ', l, ' экзамен у ', p[i].familiya, ' : ');
        readln(o[i,l]);
      end;
     end;
  end;


for i:=1 to d do
  begin
  write(p[i].familiya, ' Оценки за экзамены : ');
    for l:=1 to ex do
    begin
    with p[i] do
    begin
    write(o[i,l], ' | ');
      p[i].ocenka:=p[i].ocenka+o[i,l];
  end;
  end;
  writeln;
  p[i].ocenka:=Round(p[i].ocenka/ex);
  end;

for i:=1 to d do
begin
  for l:=1 to ex do
    begin
all:=all+o[i,l];
      if o[i,l] = 5 then
        ot:=ot+1
          else  if o[i,l] = 4 then
            hor:=hor+1
              else if o[i,l] = 3 then
                yd:=yd+1;
                end;
end;
writeln;
writeln('Всего отличных оценок в группе: ', ot);
writeln('Всего хороших оценок в группе: ', hor);
writeln('Всего удовлетворительных оценок в группе: ', yd);
writeln;
writeln('Общий балл в группе: ', (all/(d*ex)):3:2);
writeln;

for i:=1 to d do
  writeln(p[i].familiya, ' итоговая оценка: ', p[i].ocenka);
writeln;
for i:=1 to d do
begin
    if p[i].ocenka < 3 then
      writeln(p[i].familiya, ' кандидат на отчисление')
end;
end.