7.

Cú pháp: While <điều kiện> do <câu lệnh>;

Hoạt động:
- B1: Kiểm tra điều kiện.
- B2: Nếu điều kiện đúng thì thực hiện câu lệnh. 
        Nếu điều kiện sai thì kết thúc vòng lặp.
- B3: Thông báo kết quả và kết thúc chương trình.

8.

Cú pháp: Var <tên mảng>: array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;

Giải thích:
- Tên mảng: Tuân theo quy tắc đặt tên.
- Chỉ số đầu, chỉ số cuối: Là số tự nhiên dương. Chỉ số cuối lớn hơn chỉ số đầu.

- Kiểu dữ liệu: Các kiểu dữ liệu có trong pascal.

9.

program phuongt;
uses crt;
  var A: array[1..500] of integer;
        i, n, tb: integer;
begin
       clrscr;
       write('Nhap n = '); readln(n);
       tb:=0;
       for i:=1 to n do
       begin
               write('A[', i, '] = '); readln(A[i]);
               tb:=tb+A[i];
       end;
       write('Gia tri trung binh cua mang: ', tb/n:3:2);
       readln
end.

chúc bạn học tốt