информатика программирование в Basic

нужно сделать контрольную работу по информатике, программирование в Basic
нужно 3 варианта: 1, 7 и 30
Доработка:
вариант 1й... В задании 9 неправильно представлена блок-схема алгоритма.
Во всех вариантах блок-схемах проставить "да-нет" и направления движения.
программы не соответствуют qbesik, не одна не запускается. Потому что часть символов с программы pascal
срочно все исправить!