viết chương trình pascal nhập vào điểm kiểm tra 1 tiết môn toán của học sinh lớp 11a , tính điểm trung bình và số lượng các học sinh có điểm trên 5

Program baitap;

Uses crt;

Var A:array[1..100] of real;

      i,n,dem:integer;

      T:real;

Begin

Clrscr;

Write('Nhap so hoc sinh:'); Readln(n);

T:=0; dem:=0;

For i:=1 to n do

     Begin

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

     Readln(A[i]);

     If A[i]>=5 then dem:=dem+1;

     T:=T+A[i];

     End;

Writeln('Diem trung binh:',T/n:3:1);

Writeln('So luong hoc sinh co diem tren 5:',dem);

Readln

End.

program diemtrungbinh;

uses crt;

var A:array[1..100] of real;

      n,i,d,t:word;

begin

     clrscr;

     write('Nhap so luong than vien lop 11a: ');  readln(n);

     d:=0;  t:=0;

     for i:=1 to n d

          begin

               write('Diem cua ban thu ',i,': ');   readln(A[i]);

               t:=t+A[i];

               if A[i]>5 then d:=d+1;

          end;

     writeln('Diem trung binh la: ',t/n:2:2);

     writeln('Trong lop co ',d,' hoc sinh co diem tren 5');

     readln;

end.