uses crt;
var
isim :array [1..100] of string[20];
numara :array [1..100] of string[6];
ders :array [1..100,1..100] of real;
ort:array [1..100] of real;
 
i,j,m,n,say :integer;
 
begin
clrscr;
write('Ogrenci sayisini giriniz.. :');
readln(m);
write('Ders sayisini giriniz.. :');
readln(n);
 
 
 
for i:=1 to m do
begin
writeln('Sira No :',i);
write('Adi Soyadi :');
readln(isim[i]);
write('Numarasi.. :');
readln(numara[i]);
writeln('');
end;
 
 
writeln('Notlari giriniz.. : ');
for i:=1 to m do
 for j:=1 to n do
  read(ders[i,j]);
 
readln;
writeln('');
writeln('Notlari 50den az olan ogrenci kalir.. ');
 
for i:=1 to m do (*a*)
begin
say:=0;
 for j:=1 to n do
  if (ders[i,j] < 50) then say:=say+1;
writeln(numara[i],' ', isim[i],' ' ,say, ' dersten kalmistir..');
writeln('');
end;
 
readln;
for i:=1 to m do (*b*)
begin
say:=0;ort[i]:=0;
 
for j:=1 to n do
begin
  if (ders[i,j] > 50) then say:=say+1;
  ort[i]:=ort[i]+ders[i,j];
end;
ort[i]:=ort[i]/n;
if say=n then
writeln(numara[i],' ', isim[i],' ders ortalamasi : ', ort[i]);
end;
 
readln;
for i:=1 to n do
begin
say:=0;
 for j:=1 to m do (*c*)
  if (ders[j,i] > 50) then say:=say+1;
writeln(i,'. dersten gecen ogrenci sayisi: ', say,' kalan ogrenci sayisi: ', (m-say));
end;
 
readln;
end.