Можете минусовать, но Батя сказал своё слово.
Я не всё помню и могу ошибаться, но я бы написал так.
10 LET WAGE = 4000
20 IF WAGE > 5000 THEN GOTO 100
30 LET RESULT = 0
40 GOTO 110
100 LET RESULT = 1
110 PRINT RESULT
120 END
Не сыпь мне соль на рану.
Эх, говорил мне батя "Учи ассемблер", но нет, бейсик был проще и понятней, а паскаля и вовсе не было в наличии.
Да, да... хайль. Но я учил только бейсик образца 80-японского года. Уж, простите ущербного.
Так, давайте для малограмотных тоже самое, только на бейсике.
Аллегория на выборы в России.
А почему... а ладно, минусуйте так.