Гражданин открыл счёт в банке, вложив 1000 рублей. через каждый месяц размер вклада увеличивается на 1,2 процента от имеющейся суммы. определить сумму вклада через 1,2...12 месяцев. Кроме того, рассчитайте прирост суммы вклада за каждый месяц года

1)
IP          214.120.249. 18
маска   255.255.240.   0
cеть      214. 120.  х.    0

240=128+64+32+16=1111 0000 (2сс)
249=240+8+1         = 1111 1001 (2сс)
                                 
                                   1111 0000 -   побитовая конъюнкция =240
x=240
 ответ    214.120.240.0
2)
IP 114  = 64+  32+  16+2=0111 0010
сеть      96=64+32         = 0110 0000
                             маска= 1110 0000    =128+64+32= 224
ответ 224
3)
156. 32.149.138   IP
156. 32.128.   0     сеть
255.255. х  .   0

149=128+16+4+1=1001 0101
128=                       1000 0000
        max маска      1110 0000=224   (3 единицы)

маска 255.255.224.0   (в 255=1111 1111 - 8 единиц)
8+8+3=19 единиц

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
    begin
        writeln('I');
        var n := ReadInteger('n=');
        Writeln((1 + 1 + Power(2, n - 1)) * n / 2);
    end;
    
    begin
        writeln;
        writeln('II');
        var n := ReadInteger('n=');
        Writeln(n mod 11 = 0 ? 'YES' : 'NO');
        
    end;
    
    begin
        writeln;
        writeln('III');
        var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;
        writeln;
        
        while a.Any() do
        begin
            write(a[0], ' ');
            a.RemoveAt(0);
            if not a.Any then break;
            
            write(a.Last, ' ');
            a.RemoveAt(a.Count - 1);
            if not a.Any then break;
            
            var n := 0;
            if a.Count > 1 then n := a.Count div 2 - 1;
            write(a[n], ' ');
            a.RemoveAt(n);
        end;
    end;
end.