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

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. Я проверила . Все работает.