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

Question

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

Answer 1

Program pr1;
Uses Crt;
Var
dn:integer;
begin
ClrScr;
write('Введите номер месяца:');
readln(dn);
if (dn>0) and (dn<13) then<br>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.