Напишите программу которая по введенному числу из промежутка от 0 до 24 определяет время суток. через if и case.

Пишем программу,которая по введенному числу из промежутка от 0 до 24 позволит нам определить время суток:Pascal.program qq;var a: integer;begin read(a); if (a > 5) and (a <= 11) then write(\'Утро \'); if (a > 11) and (a <= 17) then write(\'День \'); if (a > 17) and (a <= 23) then write(\'Вечер\'); if (a = 24) or (a < 6) then write(\'Ночь\');end.Программа написана.