CONST
 M=4;
 N=5;
VAR
 A:Array[1..M,1..N] of Byte;
 Numbers,Sums:Array[1..N] of Byte;
 i,j,k,d,u,v:Byte;
BEGIN
 Randomize;
 For i:=1 to M do
  begin
   For j:=1 to N do
    begin
     A[i,j]:=Random(10);
     Write(A[i,j]:3);
    end;
   Writeln;
  end;
 Writeln('Sums:');
 For j:=1 to N do
  begin
   Numbers[j]:=j;
   Sums[j]:=0;
   For i:=1 to M do
    Sums[j]:=Sums[j]+A[i,j];
   Write(Sums[j]:3);
  end;
 Writeln;
 For u:=1 to N do
  For v:=1 to N-u do
   If Sums[v]>Sums[v+1] then
    begin
     d:=Sums[v];
     Sums[v]:=Sums[v+1];
     Sums[v+1]:=d;
     k:=Numbers[v];
     Numbers[v]:=Numbers[v+1];
     Numbers[v+1]:=k;
    end;
 Writeln;
 For i:=1 to M do
  begin
   For j:=1 to N do
    write(A[i,Numbers[j]]:3);
   Writeln;
  end;
 Writeln('Sums:');
 For j:=1 to N do Write(Sums[j]:3);
 Readln
END.

CONST
 Number_of_Students=5;
 Number_of_Subjects=4;
VAR
 Marks:Array[1..Number_of_Students,1..Number_of_Subjects] of Byte;
 Stud,Subj,Good_Stud,Perf_Stud:Byte;
 b:Boolean;
BEGIN
 Randomize;
 For Stud:=1 to Number_of_Students do
  begin
   For Subj:=1 to Number_of_Subjects do
    begin
     Marks[Stud,Subj]:=Random(4)+2;
     Write(Marks[Stud,Subj]:4);
    end;
   Writeln;
  end;
 Writeln;
 Good_Stud:=0;
 Perf_Stud:=0;
 For Stud:=1 to Number_of_Students do
  begin
   b:=true;
   Subj:=0;
   Repeat
    Inc(Subj);
    If Marks[Stud,Subj]=2 then b:=false;
   Until (b=false) or (Subj=Number_of_Subjects);
   If b then Inc(Good_Stud);
  end;
 For Stud:=1 to Number_of_Students do
  begin
   b:=true;
   Subj:=0;
   Repeat
    Inc(Subj);
    If Marks[Stud,Subj]<4 then b:=false;
   Until (b=false) or (Subj=Number_of_Subjects);
   If b then Inc(Perf_Stud);
  end;
 Writeln('Students having no "2": ',Good_Stud);
 Writeln('Students having no "2" and no "3": ',Perf_Stud);
 Readln
END.