Repeat berarti ulangi dan until berarti sampai. Jadi, repeat-until adalah struktur pengulangan dimana aksi dilakukan hingga kondisi (persyaratan ) berhenti terpenuhi.
Contoh:
uses crt;
var a:integer;
Begin
clrscr;
for a:=1 to 10 do
writeln(a);
readln;
end.