Viết ct nhập vào số học sinh của lớp 8A. Hãy nhập điểm cho từng học sinh trong lớp

uses crt;

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

i,n: integer

begin

clrscr;

write (‘nhap so luong: ‘);  readln (n);

for i:=1 to n do

begin

write (‘nhap dien hs ‘,i,’: ‘);  readln (a[i]);

end;

readln;

end.