Contoh Perulangan For To Do, Repeat Until

For To Do

Input :Var
  A : Integer;
  Begin
  For A := 1 to 5 do
  writeln (A);
End

Output :
1
2
3
4
5

Input :Var
  A : Integer;
  Begin
  For A := 5 down to 1 do
  writeln (A);
End

Output :5
4
3
2
1

Repeat Until

Input : Var
  A : Integer;
Begin
A:= 1
Repeat writeln (A);
A := A+2
Until A = 7

Output:1
3
5
7