это сор определите одно любое поле (В ответе записать название любого поля) ​

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.

Program C2F;

Uses

    Crt;

Var i: integer;

       c,f: real;

Begin

    ClrScr; {очистить экран}

    Writeln('From Celsius to Fahrenheit:');

    Write('Type temperature (in celsius): '); read(c);

    f := 32 + 2*c * (1 - 1/10);

    Writeln('Temperature in fahrenheit: ', f:3:3);

    { :3:3 - общее количество знаков и знаков после запятой }

    Writeln(' Celsius to Fahrenheit from 0 to 100, step 5: ');

    i := 0;

    While i <= 100 Do

    Begin

        f := 32 + 2*i * (1 - 1/10);

        Writeln(' C = ',i:3,' | F = ', f:3:3);

        i := i + 5;

    End;

    Readkey; {чтоб не нажимать alt+f5 для просмотра результатов}

End.