PASCAL/Vòng lặp/Repeat ... Until

Cú pháp

REPEAT <câu lệnh> UNTIL <điều kiện>;

Thí dụ

i := 0;
Repeat
 i:= i + 1;
 write(i,';')
Until i=10;

::1 2 3 4 5 6 7 8 9 10
|| 
||
<source lang="pascal">
s:='Wikibooks tieng Viet';
repeat
   delete(s,1,1);