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

Câu 2: Cú pháp câu lệnh lặp với số lần biết trước: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Câu 3:

program Min;
uses crt;
var i,S:integer;
begin
   clrscr;
   S:=0;
   for i:=1 to 200 do S:=S+i;
   writeln('Tong la: ',S);
   readln
end.

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.