Определить десятичный адрес узла, класс сети, маску, широковещательный адрес сети 01111110 01111110 11110111 11011000

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

Const
  m=10;
  n=8;
var
  a:array[1..m,1..n] of integer;
  i,j:integer;
begin
  Randomize;
  Writeln('Исходный массив');
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(20)+10;
      Write(a[i,j]:3)
      end;
    Writeln
    end;
  Writeln('Результирующий массив');
  for i:=1 to m do begin
    for j:=1 to n do begin
      if a[i,j] mod 5=0 then a[i,j]:=2*a[i,j]
      else a[i,j]:=3*a[i,j];
      Write(a[i,j]:3)
      end;
    Writeln
    end
end.

Пример решения
Исходный массив
 12 10 12 20 17 17 28 23
 22 27 28 14 23 10 26 15
 29 13 10 29 26 11 17 24
 10 14 17 24 16 12 22 28
 17 25 26 24 25 22 17 23
 18 11 20 12 28 29 25 13
 26 11 28 19 17 27 22 10
 22 17 20 12 10 13 17 19
 14 10 27 28 13 11 20 16
 26 16 21 24 20 15 26 10
Результирующий массив
 36 20 36 40 51 51 84 69
 66 81 84 42 69 20 78 30
 87 39 20 87 78 33 51 72
 20 42 51 72 48 36 66 84
 51 50 78 72 50 66 51 69
 54 33 40 36 84 87 50 39
 78 33 84 57 51 81 66 20
 66 51 40 36 20 39 51 57
 42 20 81 84 39 33 40 48
 78 48 63 72 40 30 78 20