Câu 1:
a. var <tên biến>:array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;
<tên biến>: bạn đặt.
<chỉ số đầu>: là số nguyên và phải nhỏ hơn chỉ số cuối.
<chỉ số cuối>: là số nguyên và phải lớn hơn chỉ số đầu.
<kiểu dữ liệu>: ví dụ integer là kiểu số nguyên, real là kiểu số thực,..
b. Ex: a:array[1..100] of integer;
Câu 2:
program dev;
uses crt;
var i,s:integer;
begin
      clrscr;
      s:=0;
      for i:=1 to 50 do s:=s+i;
      write('Tong: ',s);
      readln;
end.

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

a) Giải thích: 

+<tên biến mảng> tên mảng. VD: a,mang,...

+<chỉ số đầu> là số nguyên cho biết chỉ số bắt đầu trong phạm vi của mảng.

+<chỉ số cuối> là số nguyên lớn hơn hoặc bằng chỉ số đầu cho biết chỉ số kết thúc trong phạm vi của mảng.

+<kiểu dữ liệu> Là kiểu giá trị của các phân tử. VD: char(kí tự), integer(số nguyên),...

b) Vd:

+ var a:array[1..1000000]of longint;

+ mang:array[1..1000000]of char;

...

Bài 2:

uses crt;
var s,i:longint;
begin
clrscr;
   s:=0;
   for i:=1 to 50 do s:=s+i;
   writeln('Tong cac so tu 1 den 50: ',s);
readln
end.