Информатика легкое задание #2)

Var a,b,c,d:integer;
begin
writeln('введите первое число');
readln(a);
writeln('введите второе число');
readln(b);
c:=a;
d:=b;
if a<b then
while b<>1 do
begin
a:=c*a;
b:=b-1;
writeln(a);
end
else
while a<>1 do
beginb:=d*b;
a:=a-1;
writeln(b);
end;
end.

1. запрашиваем первое число
2. получаем первое число
3. запрашиваем второе число
4. получаем второе число
5. приравниваем первое число  некоторой переменной.
6. приравниваем второе число  некоторой переменной.
7. если первое число больше второго то вычитаем из второго числа 1 и при каждом вычитании приравниваем первое число к произведению первого числа на переменную к которой его приравняли. 
выводим результат на экран.
8. если второе число больше первого то вычитаем из первого числа 1 и при каждом вычитании приравниваем второе число к произведению второго числа на переменную к которой его приравняли.  
выводим результат на экран.

Если у маски значение 255, то IP не меняется, т.е первые два байта будут такие же, а именно 224.24.
Последний байт у IP адреса будет 0, т.к. при поразрядной конъюнкции на 0 будут 0 в двоичной с.с. Т.е адрес будет 224.24.    .0
Осталось найти третий байт. Для этого переведем 254 и 224 в двоичную с.с и поразрядно перемножим
254 = 11111110
224 = 11100000
Если поразрядно их перемножить будет 
          11111110
          11100000
          11100000
При переводе этого числа в десятичную - получим 224, значит адрес сети
224.24.224.0