Repeat deyimi ile until deyimi arasında kalan işlemleri untildeki koşul yanlış olduğu sürece tekrarlar. Untildeki koşul(lar) doğru olduğu anda döngüden çıkar.

Repeat
...
işlemler;
...
Until koşul(lar);

Örnek :

Var
I : Integer;
begin
repeat
Write('Bir sayı giriniz : ');
ReadLn(I);
until (I >= 0) and (I <= 9);
writeln(‘Sayı 0..9 arasındadir.’;
End.




[COLOR=#c5003fNe olursa olsun şarta bakana kadar döngüyü bir kez çalıştırır.

[COLOR=#c5003f] Until'de belirtilen şart doğru olduğu sürece çalışır.