Câu 1:
for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Ex:
uses crt;
var i,s:integer;
begin
      clrscr;
      for i:=1 to 3 do s:=s+i;
      write(s);
      readln;
end.
Câu 2:
while <điều kiện> do <câu lệnh>;
Ex:
uses crt;
var i,s:integer;
begin
      clrscr;
      s:=0;i:=0;
      while i<=3 do
            begin
                  s:=s+i;
                  i:=i+1;
            end;
      write(s);
      readln;
end.
Câu 3:
<tên biến mảng>:array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;
Biến mảng được sử dụng ở đầu chương trình.
Kiểu dữ liệu các phần tử giống nhau.
Ex:
uses crt;
var a:array[1..100] of integer; n,i:integer;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
            end;
      write('Day vua nhap: ');
      for i:=1 to n do write(a[i],' ');
      readln;
end.

Câu 1

-Cú pháp:For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;- Ví dụ: Tính tổng các số từ 1 đến n For i:=1 to n do s:=s+i;

Câu 2

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

-Ví dụ:While a<=b do a:=a+1; 

+)While, do là các từ khóa 

+)Điều kiện là a<=b (chứa phép so sánh)  +)Câu lệnh là a:=a+1 (câu lệnh đơn)

Câu 3

-Cú pháp:

-Cvar <tên biến mảng>:array [<giá trị đầu>..<giá trị cuối>] of <kiểu dữ kiệu>;

(Bạn thông cảm còn lại mình không biết)