Looping

1: Program Tutorial3_for;
2: var i: Integer;
3: Begin
4:   For i:=1 to 5 do
5:     writeln('ini yang ke ', i);
6: End.

 1: Program Tutorial3_while;
 2: var i: Integer;
 3: Begin
 4:   i:=1;
 5:   while i < 5 do
 6:   begin
 7:     writeln('ini yang ke ', i);
 8:     i:=i+1;
 9:   end;
10: End.

1: Program Tutorial3_repeat;
2: var pilih: char;
3: Begin
4:   i:=1;
5:   repeat
6:     writeln('ini yang ke ',i);
7:     i:=i+1;
8:   until i<0;
9: End.