Определение назначение предложенного программного кода определяет сумма числовых значений цветов 6 и конечного полей определяет сумму числовых значений цветов 5 и конечного определяется сумма числовых значений цветов начального и конечного поля определяется о числовых значений цветов начального из 6 полей

Сергей Алексеевич Баруздин
Пчелиная напасть
Жил я в детстве в деревне. Всем был доволен: и рекой, и лесом, и полной свободой.
У хозяина дома, в котором мы жили, было несколько ульев с пчёлами. Пчёлы - миролюбивые существа, если их не обижать. И верно: наши пчёлы никого не кусали, не трогали.
Никого, кроме меня. Стоило мне выйти из избы, как какая-нибудь пчела обязательно меня укусит. А бывали дни, когда меня жалили и по нескольку раз.
- Балуешься ты много, - говорила мать, - вот они тебя и кусают.
- Не балуюсь, — оправдывался я. — Совсем их не трогаю.
Время шло, и не было дня, чтобы я избежал этой пчелиной напасти.
Хотел я спросить нашего хозяина, почему пчёлы меня не любят, но побоялся. А вышло так, что я всё равно не избежал разговора с хозяином.

Var h,m,t:integer;

begin
write('Введите время(ч,м): '); read(h,m);
t:=h*60+m;

writeln('В данный момент на станции стоят следующие поезда: ');
if (t>=540) and (t<590) then writeln('Номер 1, Красноярск- Москва ');
if (t>=570) and (t<620) then writeln('Номер 2, Новгород - Москва ');
if (t>=610) and (t<670) then writeln('Номер 3, С.-Петербург - Калининград ');
if (t>=660) and (t<720) then writeln('Номер 4, Владивосток - Москва ');
if (t>=720) and (t<750) then writeln('Номер 5, Москва - Омск ');
if (t>=755) and (t<795) then writeln('Номер 6, Томск — Москва ');
if (t>=780) and (t<830) then writeln('Номер 7, Москва — Екатеринбург ');
if (t>=820) and (t<860) then writeln('Номер 8, Москва — Самара ');
if (t>=845) and (t<910) then writeln('Номер 9, С.-Петербург — Москва ');
if (t>=890) and (t<950) then writeln('Номер 10, Москва — Красноярск ');
if (t>=940) and (t<990) then writeln('Номер 11, Москва — Владивосток ');
if (t>=980) and (t<1025) then writeln('Номер 12, Омск-Москва ');
if (t>=1020) and (t<1085) then writeln('Номер 13, Москва — С.-Петербург ');
if (t>=1080) and (t<1140) then writeln('Номер 14, Екатеринбург — Москва ');
 end.