Pascal составить прграмму . работа светофора запрограммирована таким образом : в начале каждого часа 3 минуты горит зелёный свет , затем 2 минуты красный , затем 3 минуты зелёный и т.д . дано время t в минутах от начала часа . определить сигнал какого цвета горит в этот момент времени для пешехода .
begin
writeln('Введите время (в минутах)');
readln(a);
if ((a mod 10>=0)and(a mod 10< 3))or((a mod 10>=5)and(a mod 10< 8)) then writeln('Зелёный')
else writeln('Красный');
readln
end.