*lệnh

var dtb: array[1..1000] of real;

i,n: integer;

*Chương trình:

uses crt;

  var dtb: array[1..1000] of real;

  i,n: integer;

      begin

      clrscr;

   Write ('so luong 45 hoc sinh: ');  readln (n);

   for i:=1 to n do;

 begin;

write ('nhap diem trung binh hoc sinh thu ',i,': ');  readln (a[i]);

end;

   write ('day diem vua nhap: ');

   for i:=1 to n do write (a[i]:2:2);

readln;

end.

$#Chi$

Khai báo biên A để lưu trữ điểm môn toán của một học sinh, ta dùng lệnh :

$→$ var A: array [1..1000] of real

$⇒$ Chúng ta thường sử dụng lệnh này để khai báo biên

$#Chúc bạn học tốt$