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