var a:array[1..10] of integer;
i,n,dem:integer;
begin
write(' nhap n ');readln(n);
for i:=1 to n do 
begin
write(' a[ ', i ,' ] '); readln(a[i]);
end;
writeln
dem:=0;
for i:=1 to n do 
if a[i]<=5 then dem:=dem+1;
write( ' tong hoc sinh duoi 5 diem la ' , dem );
readln;
end.
da chay va thanh cong a neu qua 10 pt thi se bao loi ^-^

program nhapdiem;
uses crt;
var a:array[1..10] of integer;
i,n,dem:integer;
begin
write(' nhap n ');readln(n);
for i:=1 to n do 
begin; write(' a[ ', i ,' ] '); readln(a[i]); end;
dem:=0;
for i:=1 to n do 
if a[i]<5 then dem:=dem+1;
write( 'co tat ca ',dem,' ban duoi nam diem');
readln;
end.