Напишите программу в паскале, которая на ввод времени суток выводит соответствующее пожелание доброго утра, доброго дня, доброго вечера или спокойной ночи.

Var m:integer;

Begin

Read(m);

if m>24 then write('takogo ne syschestvyet');

if  ((m<=6) and (m<=12))  then writeln('dobroe ytro');

if ((m>12) and (m<=18))  then writeln('dobruy den');

if ((m>18) and (m<=21))  then writeln('dobruy vecher');

if ((m>21) or (m<6)) then writeln('spokoyniy nochi');

End.

Я проверила . Все работает.