Можно ли изменить логическое выражение в операторе ветвления в примере 16.1 так, чтобы сообщения ꞌположительноеꞌ и ꞌне положительноеꞌ пришлось поменятьместами? если да, то как это сделать?

Полагаю, вопрос оборван и полная формулировка звучит следующим образом:
"Для узла с IP-адресом 203.155.196.98 адрес сети равен 203.155.192.0. Найдите наибольшее возможное количество единиц в двоичной записи маски подсети."
Нас интересует 3-й октет (байт) IP адреса, который равен 196. Переведем в двоичную систему. 

Аналогично поступим с 3-м октетом адреса сети. 

IP адрес и маска подсети дают адрес сети, их поразрядное логическое умножение друг на друга. Для наглядности запишем это в столбик. 
11000100 - IP
 хххххххх - маска
11000000 - адрес сети
Однозначно, чтобы получить единицы в крайних левых разрядах адреса сети, они должны быть и в маске. 
11000100
11хххххх
11000000
В задании требуется определить максимально возможное количество единиц в маске. Т.к. в маске подсети сначала идут все единицы, а потом все нули без чередования, маска будет следующей:
11000100
11111000
11000000
Будь единиц в маске хотя бы на одну больше, адрес сети бы изменился на 11000100. 
Теперь представим нашу маску в двоичном коде:
11111111.11111111.11111000.00000000
Число единиц 8+8+5=21.
ответ: 21 единица. 

. var a, b: real;
begin
  write('Введите стороны прямоугольника: ');
  read(a, b);
  writeln('Периметр = ', 2 * a + 2 * b);  
end.

2. var p, b: real;
begin
  write('Введите два числа: ');
  read(p, b);
  writeln('Произведение = ', p * b);
  writeln('Разность = ', p - b);
end.

3. var b: real;
begin
  write('Введите длину ребра: ');
  read(b);
  writeln('Объем = ', b * b * b);
end.

4. var r: real;
begin
  write('Введите радиус: ');
  read(r);
  writeln('Площадь = ', 3.14 * r * r);
end.

5. var a, b, c: real;
begin
  write('Введите три стороны: ');
  read(a, b, c);
  writeln('Периметр = ', a + b + c);
end.