Ответ:

var a : integer;

begin

writeln('Который час?');

readln(a);

if (a > 4) and (a < 12) then writeln('Доброе утро')

else if (a >= 12) and (a < 17) then writeln('Добрый день')

else if (a>=17) and (a < 21) then writeln('Добрый вечер')

else if (a >= 21) and (a <= 4) then writeln('Доброй ночи');

end.

на языке Pascal.