Операция деления x = 3786;a = x%100; b = x / 1000; c = x%5000; d = x/10%10; k = x%3;t = x/10000; m = x/20;n = x%100/10; y = x/10%2; z = x%100/3; ! ​

1. Опишем циклическое состояние светофора от начала часа
0 ≤ T < 3 ⇒ зеленый
3 ≤ T < 4 ⇒ желтый
4 ≤ T < 6 ⇒ красный
2. Замечаем, что цикл смены состояний светофора составляет 6 секунд, т.е. взяв остаток от деления заданного T на 6, мы сведем задачу к состоянию, описанному в п.1
3. Операция "Взятие остатка от деления вещественного числа" в QBASIC отсутствует, поэтому будем получать некое k - целочисленное частное от деления  T на 6, а потом переопределять T = T - 6*k

'Microsoft QBASIC 1.0
DIM T AS DOUBLE
INPUT "Введите T", T
T = T - 6 * INT(T / 6)
SELECT CASE T
CASE IS <= 3
   PRINT "Зеленый"
CASE IS <= 4
   PRINT "Желтый"
CASE ELSE
   PRINT "Красный"
END SELECT

t = int(input())

if t <= 3:

  print("GREEN")

elif t <= 5:

  print("RED")

elif t <= 8:

  print("GREEN")

elif t <= 10:

  print("RED")

elif t <= 13:

  print("GREEN")

elif t <= 15:

  print("GREEN")

elif t <= 18:

  print("RED")

elif t <= 20:

  print("GREEN")

elif t <= 23:

  print("RED")

elif t <= 25:

  print("GREEN")

elif t <= 28:

  print("RED")

elif t <= 30:

  print("GREEN")

elif t <= 33:

  print("RED")

elif t <= 35:

  print("GREEN")

elif t <= 38:

  print("RED")

elif t <= 40:

  print("GREEN")

elif t <= 43:

  print("RED")

elif t <= 45:

  print("GREEN")

elif t <= 48:

  print("RED")

elif t <= 50:

  print("GREEN")

elif t <= 53:

  print("RED")

elif t <= 55:

  print("GREEN")

elif t <= 58:

  print("RED")

elif t <= 60:

  print("GREEN")