const n=4; m=3;
var fam: array [1..n] of string[10];
    a: array [1..n,1..m] of integer;
    sum,min,i,j:integer;
begin
Randomize;
for i:=1 to n do begin
  write('Введите фамилию ',i,' ученика: ');
  readln(fam[i]);
  for j:=1 to m do a[i,j]:=Random(4)+2;
end;
writeln('Фамилия            1    2    3 Ср.балл');
writeln('----------------------------------------');
for i:=1 to n do begin
 write(fam[i],' ':15-length(fam[i]));
 sum:=0;
  for j:=1 to m do begin
   write(a[i,j]:5);
   sum:=sum+a[i,j];
  end;
  writeln(sum/m:6:2);
 end;
write('Средние баллы','   ');
for j:=1 to m do begin
 sum:=0;
 for i:=1 to n do sum:=sum+a[i,j];
 write(sum/n:5:2);
 end;
 writeln;
end.