нужно сделать блок схему по этой программе
Program opredeleniesutok;
var n:integer;
begin
write('Введите число от 0 до 24 n=');
readln(n);
case n of
0..6:write('ночь');
7..9:write('утро');
10..18:write('день');
else write('вечер');
end;
end.