{program pengulangan menggunakan (while - do)
tampilkan Bilangan GENAP
kerjakan aksi SELAMA kondisi terpenuhi yaitu i<50
proses akan berhenti ketika nilai akhir i=49
}

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

var
i : integer;

Begin
clrscr;
i := 0;
while ( i<50 )
do
begin
i := i+2;
write(’ ‘,i);
end;
readln;
end.