Даны время (два целых числа – часы и минуты). вывести время суток. будем считать, что: утро – от 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.