Question

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

​

Answer 1

program znanija;

var

t:integer;

begin

readln(t);

if (t>=0)and(t<6) then

writeln('Ночь');

if (t>=6)and(t<12) then

writeln('Утро');

if (t>=12)and(t<18) then

writeln('День');

if (t>=18)and(t<=24) then

writeln('Вечер');

end.