contoh pemograman pascal LOOP (for...downto...do) 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 downto batas do
    begin
    if (i mod 2=0) then
    writeln(i);
    end;
    end.