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

Напрашивается двухмерный массив. (или какой там) в строчку будут располагаться цифры от 1 до 12. под каждой цифрой пусть будет вторая строка - дней в году. названия месяца и названия сезона текстовые, по этому легче сделать через case of (паскаль), но если требуют массивы, то создаем массив с переменной string и называем первую строчку от января до декабря. вторую - названия сезонов. зима,зима, весна,весна,весна,лето,лето,лето и т.д. массивы заполняешь программно в коде. а потом просто проверка какой номер задан. допустим 5. ищем элемент с икс координатой 5 и смотрим что во второй строке - кол-во дней. запоминаем. смотрим в текстовом массиве 5ый стобик. берем первую строку - название месца. запоминаем. берем  вторую строку - сезон. запоминаем. делаем проверку на первое/последнее место и выводим.

Var a,b,i: integer; begin readln(a); for i: =2 to a-1 do if a mod i=0 then inc(b); if b> 0 then writeln ('не простое') else writeln('простое'); end.