Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Введите только время ( только часы) и напечатайте соотвествующие этому времени сообщение:"доброе утро", добрый вечер, доброй ночи

Ответ оставил Гость

Var h:integer;
begin;
readln(h);
case h of
7..15:writeln(Доброе утро);
16..23:writeln(Добрый вечер);
0..6:writeln(Доброй ночи);
else writeln(Не часы);
end;
end.