Pętla Repeat Until
repeat warunek until instrukcje;
 var 
 x,i: integer;
 begin
   x:= 0; i:= 1;
   repeat
     x:= x+i;
     readln (i);
   until i>8;
   writeln ('x= ',x);
   readln;
 end.

Pętla jest tak długo wykonywana dopóki warunek wyjścia nie jest prawdziwy.

REPEAT 
        wypisz(tekst,ile);
UNTILL keypressed;

Jeśli ktoś naciśnie klawisz, warunek będzie prawdziwy i iteracja zostanie przerwana.

O ile nie zaznaczono inaczej, treść tej strony objęta jest licencją Creative Commons Attribution-ShareAlike 3.0 License