Сделайте 5 задание ​

Question

Сделайте 5 задание ​

---

Answer 1

program znanija;

var

t:integer;

begin

readln(t);

if (t>=0)and(t

writeln('Ночь');

if (t>=6)and(t

writeln('Утро');

if (t>=12)and(t

writeln('День');

if (t>=18)and(t

writeln('Вечер');

end.