В Pascal ABC ввести номер месяца и вывести кол-во дней в месяце в невысокосном году

Program pr1;

Uses Crt;

Var

dn:integer;

begin

ClrScr;

write ('Введите номер месяца:') ;

readln (dn) ;

if (dn>0) and (dn<13) then

begin

case dn of

1,3,5,7,8,10,12:writeln ('В этом месяце 31 день') ;

4,6,9,11:writeln ('В этом месяце 30 дней') ;

2:writeln ('В этом месяце 28 дней') ;

end;

end

else writeln ('Введите корректно') ;

readln;

end.