Напишите пожалуйста программу в паскале…

Var m: integer; BeginRead (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. Я проверила. Все работает.