вот так программа больше походит на программуREM CLSDim X as integer Dim A as integerINPUT "Ввод числа X ", XIF sin(X)>0.3 and cos(X)>0.3 THEN A=X^2ELSE A=X^3END IFPRINT "A ",AENDувы найти конкретно компилятор под квик бейсик не удалось и поскольку в разных бейсиках не шарю, то подсказать трудноQbasic завелся на виртуалке на xp, код принял и отработал. Только одно но - русский текст не понимает, лучше писать транслитом или на англ