Contoh Program Paskal Repeat Until

uses crt;
var K:integer;
begin
clrscr;
K:=8;
repeat
dec(K);inc(K);write(K);
until K>5 ;
readln;
end.

Hasilnya sebagai berikut :

8

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