program Diem;
uses crt;
var i,n,a,b: byte; s,tb: real;
      a : array [1..20] of real;
begin
 clrscr; s:=0; a:=0; b:=0;
 for i:=1 to 14 do
  begin
    write('Diem thu ',i,' : '); readln(a[i]);
    if a[i]<5 then inc(a) else if a[i]=10 then inc(b);
    s:=s+a[i];
  end; clrscr; tb:=s/14;
 writeln('Day diem so vua  nhap :');
  for i:=1 to 14 do write('Diem thu ',i,' : ',a[i]);
 writeln('Diem nho hon 5 : ',a);
 writeln('So diem 10 : ',b);
 writeln('Diem trung binh : ',tb:1:2);
 if tb>=8.0 then write('Loai Gioi !') 
  else if tb>=7.0 then write('Loai Kha !')
   else if tb>=6.5 then write('Loai Trung binh !')
     else if tb>=3.0 then write('Loai Yeu !')
       else write('Loai Kem !');
 readln
end.