По времени определить время суток. Оператор выбора case.
uses crt; var n,k:integer; begin write('Введите час'); read(n); if n>=24 then begin k:=n mod 24; n:=k; end; case n of 6..11:write('Утро'); 13..16:write('День'); 17..23:write('Вечер'); 0..5:write('Ночь'); end; end.