Contoh Program Pengaplikasian Repeat Until

uses crt;
var i,tot : integer;
begin
clrscr;
i:=6; tot:=0;
repeat
tot:=tot+i; write(tot,' '); i:=i-1;
until i< 5;
readln;
end.


Hasil:
6 11



Sumber : Pra UTS ATA 2011//2012 Algoritma & Pemprograman 2