Repeat berarti ulangi dan until berarti sampai. Jadi, repeat-until adalah struktur pengulangan dimana aksi dilakukan hingga kondisi ( persyaratan ) berhenti terpenuhi.
uses crt;
var a:integer;
Begin
repeatwriteln(a);
inc(a);
until(a<=10);
readln;
end.