repeat - until

contoh program yang menggunakan struktur repeat until
program deret;
uses crt;
var
n,a,jumlah:integer;
begin
clrscr;
a:=1;
jumlah:=0;
write('masukkan n=');readln(n);
repeat
writeln(a);
jumlah:=jumlah+a;
a:=a+1;
until a>n;
write('jumlah deret',jumlah);
readln;
end.