Является ли произведение цифр 3-значного числа четным? (Работа с оператором WHILE—WEND)

Извините, а другого решения нет?

а какое надо?

это же с оператором While - Wend

CLSm = 100WHILE m < 999  f$ = STR$(m)  f$ = MID$(f$, 2)  h1$ = MID$(f$, 1, 1)  h2$ = MID$(f$, 2, 1)  h3$ = MID$(f$, 3, 1)  k = VAL(h1$) * VAL(h2$) * VAL(h3$)  IF k MOD 2 = 0 THEN    PRINT h1$; "*"; h2$; "*"; h3$; "="; k  END IF  m = m + 1WEND