var a: array[1..50] of real;

      i, n, d: byte;

      tb: real;

Begin

    Write('nhap so luong hoc sinh: '); 

    Readln(n); tb:=0; d:=0;

    For i:=1 to n do

      Begin

          Write('nhap diem cua hoc sinh thu ', i, ': ');

          Readln(a[i]); tb:=tb+a[i];

          If a[i]>=8.0 then inc(d);

      End;

   tb:=tb/n;

   Writeln('diem toan trung binh: ', tb:6:2);

   Write('co ', d, ' hoc sinh gioi toan');

   Readln

End.

program Toan;

uses crt;

var n,i,d: integer;

      toan,TB: real;

Begin

         clrscr;

         write('Nhap so hoc sinh: '); readln(n);

         for i:=1 to n do

         begin

                  write('Nhap diem Toan cua HS thu ',i,': '); readln(toan);

                  TB:=TB+toan;

                  if toan>=8 then d:=d+1;

         end;

         writeln('Trung binh mon Toan ca lop: ',TB/n:2:2);

         write('Co ',d,' ban dat HSG Toan');

         readln

End.