СРОЧНО
Даны время (два целых числа – часы и минуты). Вывести время суток. Будем считать, что: утро – от 6:30 до 10:00 ;день – от 10:01 до 16:30 ;вечер – от 16:31 до 22:00 ;ночь – от 22:01 до 6:29
Pascal ABC ИНФОРМАТИКА

var a, b: integer; begin  writeln('Введите часы: ');  readln(a);  writeln('Введите минуты: ');  readln(b); if (a > 6) and (a < 10) then writeln('Утро'); if (a = 10) and (b = 0) then writeln('Утро'); if (a = 6) and (b >= 30) then writeln('Утро'); if (a > 10) and (a < 16) then writeln('День'); if (a = 10) and (b >= 1) then writeln('День'); if (a = 16) and (b <= 30) then writeln('День'); if (a > 16) and (a < 22) then writeln('Вечер'); if (a = 22) and (b = 0) then writeln('Вечер'); if (a = 16) and (b >= 31) then writeln('Вечер'); if (a > 22) or (a < 6) then writeln('Ночь'); if (a = 22) and (b >= 1) then writeln('Ночь'); if (a = 6) and (b <= 30) then writeln('Ночь');end.