//можно и без дня недели пятницы //pascalabc.net 3.2 сборка 1318 //pascalabc вариант var year,yearcode: integer; begin readln(year); case(year div 100 mod 4) of 0: yearcode: =6; 1: yearcode: =4; 2: yearcode: =2; 3: yearcode: =0; end; yearcode: =(yearcode+year mod 100+ year mod 100 div 4) mod 7; if year mod 4< > 0 then begin if (13+1+yearcode) mod 7=6 then writeln('январь'); end else if (13+1+yearcode) mod 7=0 then writeln('январь'); if year mod 4< > 0 then begin if (13+4+yearcode) mod 7=6 then writeln('февраль'); end else if (13+4+yearcode) mod 7=0 then writeln('февраль'); if (13+1+yearcode) mod 7=6 then writeln('октябрь'); if (13+2+yearcode) mod 7=6 then writeln('май'); if (13+3+yearcode) mod 7=6 then writeln('август'); if (13+4+yearcode) mod 7=6 then writeln('март'); if (13+4+yearcode) mod 7=6 then writeln('ноябрь'); if (13+5+yearcode) mod 7=6 then writeln('июнь'); if (13+6+yearcode) mod 7=6 then writeln('декабрь'); if (13+6+yearcode) mod 7=6 then writeln('сентябрь'); if (13+0+yearcode) mod 7=6 then writeln('апрель'); if (13+0+yearcode) mod 7=6 then writeln('июль'); end. //.net вариант uses system; const day=13; n=12; var year,i: integer; ars: array[1..n] of string: =('январь','февраль','март','апрель','май','июнь','июль','август','сентябрь','октябрь','ноябрь','декабрь'); ard: array[1..n] of datetime; begin readln(year); for i: =1 to n do begin ard[i]: =ard[i].adddays(day-1); ard[i]: =ard[i].addmonths(i-1); ard[i]: =ard[i].addyears(year-1); if ard[i].dayofweek.tostring='friday' then writeln(ars[i]); end; end. пример ввода: 2016 пример вывода: май