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

Var m:integer;

Begin

Read(m);

if mgt;24 then write('takogo ne syschestvyet');

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

if ((mgt;12) and (mlt;=18))  then writeln('dobruy den');

if ((mgt;18) and (mlt;=21))  then writeln('dobruy vecher');

if ((mgt;21) or (mlt;6)) then writeln('spokoyniy nochi');

End.

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