QBasic
INPUT "Введите температуру: ", t
SELECT CASE t
CASE IS < -50
PRINT "Крайне холодно"
CASE IS <= -30<br> PRINT "очень холодно!"
CASE IS <= -10<br> PRINT "холодно"
CASE IS <= 10<br> PRINT "Прохладно"
CASE IS <= 25<br> PRINT "Тепло"
CASE IS <= 30<br> PRINT "жарко"
CASE IS <= 40<br> PRINT "очень жарко!"
CASE ELSE
PRINT "крайне жарко!"
END SELECT