z a b c =
   (var d = 0.0;
    var e = 0.0;
    var i = a;
    for [a .. b + 1] do:
        if i mod c == 0 then
            d := d + 1
        else
            e := e + 1
        fi
    done;
    if d > e then
        d
    else
        e
    fi);

x = z 1 100 3;