contoh pemograman pascal LOOP (for...to...do) dengan menggunakan (if...then)

program for1;
uses wincrt;
var batas,i,j:integer;
begin
    writeln('mencetak bilangan');
    write('akan mencetak sampai bilangan berapa?');readln(batas);
   
    for i:=1 to batas do
    begin
    if (i mod 2=0) then
    writeln(i);
    end;
end.