Ответ:
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('Доброй ночи');</p>
end.
на языке Pascal.