1.Cú pháp:
for <biến đếm>:=<GT đầu> to <GT cuối> do <câu lệnh>;
while <điều kiện> do <câu lệnh>;

2. Cú pháp khai báo mảng: < Tên mảng >: array[giá trị đầu..giá trị cuối] of <kiểu dữ liểu>;

3.
program tinhtong;
uses crt;
var s,i,n:integer;
begin;
writeln('nhap n='); readln(n);<br />s:=0;<br />for i:= 1 to n do s=s+i;<br />writeln('tong s =',s); 
readln;
end.

4. 
program phantu;
uses crt;
var s,i,n:integer; a:array[1..10] of integer;
begin;
write('nhap n); readln(n);
for i :=1 to n do
begin; write('a[i]='); readln(a[i]); end;
s:=0;
for i:=1 to n do if a[i] mod 2<> 0 then s:=s+a[i];
writeln('tong cac phan tu le trong day la',s);
readln;
end.

5.
program tinhtong;
uses crt;
var s,i:integer;
begin
for i:=1 to 10 do s:=s+i;
writeln('tong muoi so tu nhien dau tien la',s); 
readln;
end.