Ответ:

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.