Введите только время (только часы) и напечатайте соотвествующие этому времени сообщение:"доброе утро", добрый вечер, доброй ночи

program zz1;

var a:integer; / / задаем переменные целого типа

begin

write (' введите время '); / / вводим количество часов с клавиатуры

read (a);

if (a = 4) then write (' доброе утро '); / / проверяем первое условие и выводим ответ

if (a = 17) then write (' добрый вечер '); / / проверяем второе условие и выводим ответ

if (a = 24) then write (' доброй ночи '); / / проверяем третье условие и выводим ответ

if (a = 13) then write (' добрый день '); / / проверяем четвертое условие и выводим ответ

END.