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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.

только так