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

Cách chuyển:

<biến đếm> := <giá trị đầu>;

while <biến đếm> <= <giá trị cuối> do

  begin

    <câu lệnh>;  {giữ nguyên câu lệnh ở for...do}

    <biến đếm> := <biến đếm>+1;

 end;

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

While - do: while <điều kiện> do <câu lệnh>;

Cách chuyển đổi thông thường (theo mình sử dụng):

- Dữ nguyên câu lệnh. (tùy trường hợp)

- Tăng biến so sánh trong điều kiện lên 1 đơn vị hoặc giảm 1 đơn vị hoặc tùy theo đề bài. (sử dụng câu lệnh kép)

- Biến đếm phải gán bên ngoài.

VD: In ra số chia hết cho 2 từ 1 đến n. (n đã có sẵn)

For - do: for i:=1 to n do if i mod 2 = 0 then write(i:3);

While - do: i:=1; while i<=n do begin if i mod 2 = 0 then write(i:3); i:=i+1; end;