точно синтаксис не помню... и так же не помню если ли функция вычисляющая остаток от деления... а было бы намного проще

CLS
INPUT «введите « N»; N
k=Int(N/2)
if k=N/2 then print "Четное" else print "Не четное"
End

Вторая:

CLS: INPUT " ";X, Y
IF X < Y THEN
PRINT "Наименьшее число X="; X
ELSE
PRINT "Наименьшее число Y=";Y
END IF
END


Воть и фсе)))