viết ct nhập vào số lượng của lớp 8a18, 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.