REPEAT

REPEAT-UNTILループ文

REPEAT-UNTILループ文を使うと、条件を満たす間では、いくつかの行を繰り返し実行します。
ループの打ち切りに条件式を使っていることはWHILEループ文と似ていますが、
条件式をループ最後で評価している点が違います。
ループの流れ
&ref(): File not found: "loop03.jpg" at page "REPEAT";
REPEAT-UNTILループ文は以下のように書きます。
REPEAT
　　文;
UNTIL 条件式;{条件を満たした時にループから抜ける}
例

PROCEDURE TEST;
VAR
		i:INTEGER;
BEGIN
		i:=0; {iを初期化する}
	REPEAT
		Writeln(i);
		i:=i+1 {iに1を加える}
	UNTIL i>10;
END;
Run(TEST);

WHILEループ文と同様、無限ループには注意して下さい。