{program pengulangan menggunakan Repeat - Until
menampilkan bilangan ganjil
kerjakan aksi SAMPAI kondisi terpenuhi yaitu i>50
proses akan berhenti ketika nilai akhir i=51
}

uses wincrt; {ganti dengan uses crt; jika menggunakan compiler free pascal}

var
i:integer;

Begin
clrscr;
i:=1;
repeat
write(’ ‘,i);
i:=i+2;
until(i>50);
readln;
end.