Câu 1: if <điều kiện> then <câu lệnh> ;
if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;
Ví dụ: if i mod 2 = 0 then inc(d);
if i mod 2 = 0 then inc(d) else inc(dem);
Câu 2: for <biến> := <giá trị đầu> to <giá trị cuối> then <câu lệnh>
Vì dụ: for i:=1 to 100 do kq:=kq+i;
Câu 3:
uses crt;
var i,kq:integer;
begin
clrscr;
for i:=1 to 200 do
kq:=kq+i;
write('Tong tu 1 den 200 la: ',S);
readln;
end.