contoh pemograman LOOP (while...do)

program pemograman_while;
uses wincrt;
var batas,i:integer;
begin
    writeln('mencetak bilangan');
    write('akan mencetak dari bilangan berapa?');readln(batas);
    i:=0;
    while i<=batas do
    begin
    i:=i+2;
    writeln(i);
    end;
    end.