Contoh Program Paskal Repeat Until dan Inc

var K: integer;
begin
K:= 3;
repeat
write(K); inc(K);
until K>5;
readln; end.


Hasil:

345


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