nhập vào chiều cao của mỗi hs trong lớp a.tinh và đưa ra màn hình chiều cao trung bình của lớp b. Số lượng hs trong lớp có chiều cao thấp hơn chiều cao trung bình của lớp. Giúp giùm mik vs ạ vote5

uses crt;
var A:array[1..60] of real;
    n,i,dem:byte; tb:real;
begin
   clrscr;
   write('So hoc sinh trong lop la: '); readln(n);
   for i:=1 to n do
   begin
      write('Nhap chieu cao cua ban thu ',i,': ');
      readln(A[i]);
      tb:=tb+A[i];
   end;
   tb:=tb/n;
   write('Chieu cao trung binh la: ',tb:4:2);
   writeln;
   for i:=1 to n do if A[i]<tb then inc(dem);
   write('Co ',dem,' hoc sinh co chieu cao thap hon trung binh');
   readln
end.