в первых скобках должны выполняться все три условия поскольку стоит "AND"(и), а это коньюкция, иными словами логическое умножение, первое условие - х=1, из-за того, что х не равен 1 все выражение в скобке будет ложь, то есть 0. во вторых скобках уже стоит "OR"(или), то есть дизьюнкция, иными словами логическое сложение, здесь должно выполняться хотя бы одно условие выражения. первое условие это х больше нуля, нам дано что х=5, то есть х больше нуля, из-за того, первое условие выполняется, а нам нужно, чтобы хотя бы одно из этих условий выполнялось, то выражение во вторых скобках будет 1, то есть истина. последнее действие это "или", берем ответ двух скобок, это 1 и 0, поскольку одно из выражений выполняется, а нам надо хотя бы одно истинное, мы пишем в ответ всего выражения истина, то есть 1.
var t: longint;
begin
read (t);
if ((t-1) mod 6 = 0) or ((t-2) mod 6 = 0) then write ('ЗЕЛЁНЫЙ')
else begin
if (t mod 3 = 0) and (t mod 6 <> 0) then write ('ЖЁЛТЫЙ')
else write ('КРАСНЫЙ');
end;
end.