помогите написать программу на паскале АВС. светофор ...

Viktor

var  timeInSec:integer; // время в секундах  color, s, m, h:byte;begin  h := 4; //часы  m := 5; //минуты  s := 23; //секунды

  timeInSec := h * 3600 + m * 60 + s; //перевод времени в секунды  color := (timeInSec div 10) mod 3; {целочисленно делим на 10, чтобы узнать сколько раз светофор изменил цвет}  {потом находим остаток деления на 3(количество цветов), чтобы узнать какой сейчас   цвет}  case color of //вывод ответа    0: writeln('Горит зеленый свет'); //0 - это зеленый свет    1: writeln('Горит желтый свет'); //1 - это желтый свет    2: writeln('Горит красный свет'); //2 - это крсный свет  end;end.