дано время суток,вывести фразу доброе утро,добрый день,добрый вечер,доброй ночи.Паскаль

program vv;var  v: integer;beginwriteln ('Введите время =');readln (v);if (v>7) and (v<12) then writeln ('Доброе утро');if (v>12) and (v<4) then writeln ('добрый день');if (V>4) and (v<24) then writeln ('добрый вечер')else writeln ('Добрый ночи');end.
только так