1/

cú pháp: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

VD: for i:=1 to n do s:=s+i;

2/

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

VD: while n<>0 do n:=n div 10;

3/

cách khai báo(cú pháp) như sau: var <tên biến mảng>: array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;

chỉ số đầu và chỉ số cuối có điều kiện như sau:

     +là số nguyên

     +giá trị cuối phải lớn hơn giá trị đầu

4/

uses crt;

var a: array[1..100] of integer;

i,n,s: integer;

begin

clrscr;

write ('nhap n: ');  readln (n);

s:=0;

for i:=1 to n do

begin

write ('nhap phan tu thu ',i,': ');  readln (a[i]);

if (a[i] mod 2=0) and (a[i] mod 5=0) then s:=s+a[i];

end;

writeln ('tong la: ',s);

readln;

end.

1 Vòng Lặp for do
for<khởi tạo biến>to<first value>do<final value>

                        Giá trị đầu        giá trị cuối              

for a:=2 to 16 do

Writeln('a = ',a);

2 Vòng lặp While Do
While<Khởi tạo biến>do<Câu Lệnh TH>
While a<1 do

3 Mảng (Arrary)
Cách khai báo mảng
arrary [<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;

4
Program TinhTong;
Uses crt;

Begin
Write(' nhap n = ');readln(n);

for i:=1 to n do 
Begin
Write('nhap so = ');readln(so);

if so mod 2=0 then S:=S+so