по питону вот мой код:
sq = [1, 3, 5, 7, 9, 12, 14, 16, 18, 19, 21, 23, 25, 27, 30, 32, 34, 36]
bq = [2, 4, 6, 8, 10, 11, 13, 15, 17, 20, 22, 24, 26, 28, 31, 33, 35]
a = int(input())
if a == sq:
print('красный')
elif a == bq:
print('черный')
elif a == 0:
print('зеленый')
else:
print('ошибка ввода')

Здесь смешанный язык - алгоритмический.
Разберем по строкам
1. алг - говорит что будет цикл (в Паскале for)
2. нач - слишком очевидно, начало
3. цел i,n - значения переменных i и n целые 
4. n:=0 - обнуляем n, мало ли в памяти есть какое-то значение для него
5. нц для i от 1 до 13 - начало цикла, который меняется на промежутке [1;13]
6. n:=(n+i)+3 - действие внутри цикла, в данном случае меняем значение n
7. кц 
8. вывод n - выводим на экран последнее значение n
9. кон 

Как это выглядит на Паскаль:
Var i, n: integer;
Begin
  n := 0;
  for i:= 1 to 13 do
      n:=n+i+3;
write('n = ',n);
end.

Эта программа выведет на экран 130
можно посчитать вручную
i=1, n = n+i+3 = 0+1+3= 4
i=2, n = n+i+3 = 4+2+3= 9 
и т.д. до i = 13.

1. Из 9-литрового перелить в 5-литровое (9-5=4, т.е. в 5-литровом 5 и в 9-литровом 4)2. Вылить из 5-литрового и перелить оставшиеся 4 литра из 9-литрового (в 5-литровом 4 и в 9-литровом 0)3. Наполнить 9-литровое и перелить из него в 5-литровое. Т.к. в 5-литровом уже есть4 литра, то в него войдет только 1 литр. В 9-литровом соответственно останется 8 литров.4. Вылить из 5-литрового всё и в него перелить из 9-литрового (8-5=3, т.е. в 5-литровом будет 5, а в 9-литровом - 3 литра)5. 5 литров вылить, а 3 принести )))