Все во вложении,там в ворде блок схема,в тестовике прога,просто формат на bas поставь и компилируй свободно
Сама прога:
PRINT "Vvedite chislo x!"
INPUT x
CLS
SCREEN 12
IF x > 0 THEN
CIRCLE (15, 20), 5, 15
ELSE
LINE (15, 200)-(200, 300), 5, BF
END IF
END
Скачать вложение Word (DOC)