viết chương trình nhập vào điểm toán các bạn trong lớp. đếm xem có bao nhiêu bạn trên trung bình

program BT;

uses crt;

var n,i,d: integer;

      toan: real;

Begin

         clrscr;

         write(‘Nhap so ban trong lop: ‘); readln(n);

         for i:=1 to n do

         begin

                  write(‘Nhap diem ban thu ‘,i,’: ‘); readln(toan);

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

         end;

         write(‘Co ‘,d,’ ban tren TB’);

         readln

End.