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

Question

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

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
case ReadInteger of
0..6,24: write('ночь');
7..12: write('утро');
13..18: write('день');
19..23: write('вечер');
else write('ошибка');
end;
end.