Напишите программу, которая по введенному числу из промежутка 0..24, определяет время суток.

PASCAL
var n:integer;
begin
repeat
write('Введите число от 0 до 24 n=');
readln(n); until n in [0..24];
case n of
0..6:write('ночь');
7..9:write('утро');
10..18:write('день');
else write('вечер');
end;
end.