Сессия. Результаты сессии, состоящей из трех экзаменов, для группы из n студентов представлены матрицей K(n,3).

program z;
uses crt;
var i,j,k1,k2,k3,k4,k5,n:integer;
a:array [1..100,1..3] of integer;
begin
     clrscr;
     writeln('Введите кол-во студентов');
     readln(n);
     writeln('Ввод оценок');
     for i:=1 to n do
         begin
              write(i,' студент: ');
              for j:=1 to 3 do
                  read(a[i,j]);
         end;
     k1:=0; k2:=0; k3:=0; k4:=0; k5:=0;
     for i:=1 to n do
         for j:=1 to 3 do
             begin
                  if a[i,j]=1
                     then
                         k1:=k1+1;
                  if a[i,j]=2
                     then
                         k2:=k2+1;
                  if a[i,j]=3
                     then
                         k3:=k3+1;
                  if a[i,j]=4
                     then
                         k4:=k4+1;
                  if a[i,j]=5
                     then
                         k5:=k5+1;
             end;
     writeln('Неявки - ',k1);
     writeln('Плохие оценки - ',k2);
     writeln('Удовлетворительные оценки - ',k3);
     writeln('Хорошие оценки - ',k4);
     writeln('Отличные оценки - ',k5);
     readln;
end.