Паскаль:
Вывести название месяца и время года по введенному числу
(Можно через if или case)

var mes: array[1..12] of string = ('январь','февраль','март', 'апрель',                        'май','июнь','июль','август',                        'сентябрь','октябрь','ноябрь','декабрь');    vr: array[0..3] of string = ('зима','весна','лето','осень');    n: integer;begin  write('месяц: ');  readln(n);  write(mes[n]);  n:=n mod 12;  write('  ',vr[n div 3]);end.месяц: 7июль  летомесяц: 12декабрь  зима