Program For ... to ... do

Contoh program For .. to .. do
Program For_Majemuk;
uses wincrt;
var i,j : Integer ;
begin
clrscr;
for i := 1 to 3 do
begin
for j:= 1 to 5 do
write ('*');
writeln;
end;
end.

Algoritma
1. tentukan variabel yang akan digunakan
2. masukkan perintah for i:= 1 to 3 do
3. setelah itu masukkan lagi perintah kedua

4. masukkan perintah write ('*')
5. dan yang terakhir masukkan perintah end.