Программа Паскаль ближайшая к дому булочная работает с 7:00 до 19:00 и закрывается на перерыв с 13:00 до 15:00. Хлебный магазин, расположенный дальше, работает с 8:00 до 20:00 и имеет перерыв с 14:00 до 16:00. С 8:00 до 24:00 хлеб можно купить в супермаркете, расположенном дальше, чем хлебный магазин, и работающем без обеда. По времени на часах у пользователя определить, что лучше:

а) сходить в булочную, так как она открыта;

б) дойти до хлебного магазина;

в) съездить в супермаркет;

г) сидеть дома, так как везде закрыто.

Время вводится следующим образом: часы – целая часть числа, минуты – дробная часть числа. Например, 14,25 – 14 часов 25 минут

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.

var

a: real;

s: string;

begin

write('Введите время: ');

readln(a);

if ((7

else if ((8

else if (8

else s:='сидеть дома, так как везде закрыто';

write(s);

end.