Помогите решитЬ задачу в Qbasic!

Помогите решитЬ задачу в Qbasic! Помогите решитЬ задачу в Qbasic!!!!

1) Составить программу определяющую результат гадания на ромашке-"любит"- "не любит" взяв за исходное данное кол-во лепестков N.

Ответы:

if (N mod 2) = 0 then PRINT ("Не любит")
else PRINT ("Любит")
endif
Mykolas

Ну если писать с нуля у каждого будь свой вариант програми, непроще пеказать свои наброски :-)
Ирочка