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.