uses crt;

var N:array[1..10] of integer;

i,s: integer;

begin

for i:=1 to 10 do

begin

write('nhap diem trung binh cua hoc sinh thu ',i); readln(N[i]);

if N[i]<5 then s:=s+1;

end;

write('so hoc sinh co diem trung binh duoi 5 la: ',s);

readln;

end.

program DTB;
var a:array[1..10] of integer;
      dem,i,n: integer;
begin
     write('Nhap diem TB cua 10 hoc sinh');
     readln(n);
     for i:=1 to n do
          begin
               writeln('a[',i,']='); readln(a[i]);
          end;
     dem:=0;
     for i:=1 to n do if a[i] > 5 then dem:=dem+1;
     write('Co', dem ,'hoc sinh co diem TB nho hon 5');
     readln;
end.