Cho một dãy số thực, viết chương trình kiểm tra xem dãy trên có bao nhiêu số có giá trị lớn hơn ba

uses CRT;
var   a: array[1..250] of real;
         i,n,d: integer;
begin
      clrscr;
     
      write(‘Nhap n= ‘);readln(n);
     
      for i:=1 to n do
     
               begin
         
                       write(‘a[‘,i,‘]: ‘);readln(a[i]);
             
               end;
         
      for i:=1 to n do
     
          If a[i] > 3 then d:=d+1;
         
      write(‘Co ‘,d,‘ so co gia tri lon hon 3’);
     
readln;
end.