В терминологии сетей TCP/IP маской сети называется двоичное 32-х разрядное число, определяющее, какая часть IP-адреса узла относится к адресу сети, а какая – к адресу самого узла в этой сети. При этом в маске сначала (в старших разрядах) стоят только единицы, а затем с некоторого разряда – только нули. Адрес сети получается в результате применения поразрядной конъюнкции к заданному IP-адресу узла и маске. Два узла считаются принадлежащими одной сети, если у них совпадают адреса сети.

program juliavanina; uses crt; var  r,min,max: real;   k: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   min: =0;   max: =0;   k: =0;   r: =1;   writeln('введите ненулевое число, не превышающее 30000 по модулю');   writeln('(или введите 0 для конца последовательности) ');   while (r< > 0) and (k< 1000) do      begin          write('ввод: ');             readln (r);           if abs(r)< 30000 then                  begin                      if min> r then min: =r;                       if max< r then max: =r;                       k: =k+1;                     end              else                  begin                      writeln ('вы ввели слишком большое по модулю число');                       writeln ('это число не будет учтено');                   end;       end;   writeln();   writeln('всего введено ',k-1,' чисел');   writeln('разность min и max составляет ',max-min); end.

проверено - работает на паскаль авс