Viết chương trình đếm xem mình có bao nhiêu bạn trong lớp số hs nam, số hs nữa đc nhập từ bàn phím

program Min;

uses crt;

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

    tong,tb:real;

    i,dem:integer;

begin 

   clrscr;

   tong:=0; tb:=0;

   for i:=1 to 10 do 

   begin

      write(‘Nhap diem cua hoc sinh ‘,i,’: ‘);

      readln(A[i]);

   end;

   for i:=1 to 10 do

   begin

      tong:=tong+A[i];

      if A[i]>5 then inc(dem);

   end;

   tb:=tong/10;

   writeln(‘ ‘);