Реализация на Паскале
VAR
x:real;
BEGIN
writeln('Который час?'); read(x);
if x > 24 then
writeln('Введенное число не является временем ' )
else
begin
if (x>=8) and (x<12) then writeln('Доброе утро!');</strong>
if (x>=12) and (x<17) then writeln('Добрый день!');</strong>
if(x>=17) and (x<23) then writeln('Добрый вечер!');</strong>
if(x>=23) or (x<8) then writeln('Доброй ночи!');</strong>
end;
end.