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.