Составьте программу, которая, учитывая наименование года и день недели соответствующий 1 января, выводит на экран наименования месяцев в которых число 13 выпадет на пятницу (программа pascal abc) надо, не понимаю как составить(

//можно и без дня недели пятницы //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 пример вывода: май

Пляшит как камень вот и  весь ответ