Viết chương trình nhập điểm tin của các bạn trong lớp. In ra những bạn trên điểm 9

uses crt;

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

i, N : integer;

begin

clrscr;

write('Nhap so ban trong lop : '); readln(N);

for i := 1 to N do

    begin

        write('Nhap diem ban ', i ,' : ');

        readln(A[i]);

    end;

write('Ban thu ');

for i := 1 to N do

    if A[i] > 9 then write(i,' ');

write('diem tren 9 ');

readln

end.