Syntax

REPEAT

<statement_list>

UNTIL

<expression>

END_REPEAT;

Example

REPEAT Var1 := Var1 – 1;

Var2 := Var2 * 2;

UNTIL

Var1 = 0

END_REPEAT;