Реализуйте решение задачи , программируя ** Паскале. По номеру месяца вывести ** печать...

Question

Реализуйте решение задачи , программируя на Паскале. По номеру месяца вывести на печать количество дней в нем . ( Январь - 1 месяц, декабрь-12 месяц .)

Answer 1

Const a:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var b:integer;
begin
readln(b);
writeln(a[b]);
end.