B1: làm mẫu và cả cho những bài sau:
Uses Crt;
Var a:array[1..1000] of integer;
i,n,tsl:integer;
Write(' Nhap so ptu N = '); Readln(n); {Quan trọng là bạn có khai báo Readln là được! Có hay không có Write không quan trọng}
tsl:=0;
For i:=1 to n do
Begin
Write(' Nhap a[',i,']= ') ; Readln(a[i]);
If a[i] mod 2 = 1 then tsl:=tsl+a[i]; {công thức tính tổng số lẻ} {1}
End;
Write(' Tong cac so le o day tren la: ',tsl); {In ra màn hình tổng số lẻ} {2}
Readln
End.
B2:
Bạn khai báo Var có biến để gọi là tổng số chẵn. Và mình sẽ vd luôn ở dưới nhá
CT:  If a[i] mod 2 = 0 then tsc:=tsc+a[i]; {cái này lắp vào 1}
Write(' Tong cac so chan o day tren la: ',tsc) {cái này lắp vào 2}
B3: Chương trình ví dụ: 
Uses crt;

Var i,x,n,Kq:longint;
Begin
Clrscr;
Write('Goi X so nguyen= '); Readln(x);
Writeln;
Write('Goi n luy thua= '); Readln(n);
Kq:=1;
For i:=1 to n do
Kq:=kq*x;
Writeln(Vay ket qua cua x,'^',n,'=',kq); {công thức tính x mũ n}
Readln;
end.

B4: Gọi biến tổng để chia hết cho cả 2 và 3 là "tch" (Bạn có thể gọi là một biến bất kì cũng được)
If (a[i] mod 2=0) and (a[i] mod 3 = 0) then tch:=tch+a[i]; {lắp vào 1}