program hungry;
var
time: real;
begin
write('Который час? ');
readln(time);
if (time < 0) or (time >= 24) or (frac(time) >= 0.6) then
writeln('У кого-то часы барахлят...')
else if (time >= 7) and (time < 13) or (time >= 15) and (time < 19) then
writeln('Отлично, булочная работает!')
else if (time >= 8) and (time < 14) or (time >= 16) and (time < 20) then
writeln('Можно до хлебного магазина дойти.')
else if (time >= 8) and (time < 24) then
writeln('Голод не тетка, придется в супермаркет ехать...')
else
writeln('Извини, друг, но сегодня хлеба не будет, сиди дома!');
end.
Сравне́ние в программировании — общее название ряда операций над па́рами значений одного типа, либо с приведением типа, реализующих математические отношения равенства и порядка. В языках высокого уровня такие операции, чаще всего, возвращают булево значение.
Инстру́кция или опера́тор — наименьшая автономная часть языка программирования; команда или набор команд. Программа обычно представляет собой последовательность инструкций. Многие языки различают инструкцию и определение. Различие в том, что инструкция исполняет код, а определение создаёт идентификатор.