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

From Wikiversity

Cú pháp[edit]

REPEAT <câu lnh> UNTIL <điu kin>;

Thí dụ[edit]

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);