Ответ:
var
Time: 0..23; //Сколько сейчас часов
begin
writeln(‘Введите сколько сейчас часов’);
readln(Time);
if (Time >= 8) and (Time < 12) then writeln(‘Доброе утро!’);
if (Time >= 12) and (Time < 17) then writeln(‘Добрый день!’);
if (Time >= 17) and (Time < 23) then writeln(‘Добрый вечер!’);
if (Time = 23) or ((Time >= 0) and (Time < 8)) then writeln(‘Доброй ночи!’);
end.