Написать программу на паскале авс. светофор переключается каждые 10 секунд. в 0 часов 0 минут 0 секунд горит зелёный. какой цвет будет гореть через 4 часа 5 минут 23 секунды

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.

Либо ты вызываешь эти две функции, либо вписываешь одну функцию в другую, либо пишешь отдельный модуль, и в основном файле пишешь эти команды:

import "Название файла"

from "Название файла" import "название функции"