FOR #iLicznik := 0 TO 10 DO
    IF (#itDane[#iLicznik] MOD 2) = 0 THEN
        CONTINUE;
    END_IF;
    #itDane[#iLicznik] := 0;
END_FOR;