Решите с решением (настолько много, сколько можете)​

var
  c, f, First, count:integer;
begin
  write('c = ');
  readln(c);
  f := c;
  while (f div 10 > 0) do
  begin
    First := f div 10;
    count := 1;
    while (First div 10 > 0) do
    begin
      First := First div 10;
      Inc(count);
    end;
    if First <> f mod 10 then
    begin
      writeln('No');
      readln;
      Exit;
    end;
    
    while count > 0 do
    begin
      First := First * 10;
      dec(count);
    end;
    f := f - First;
    f := f div 10;
  end;
  writeln('Changeling');
  readln;
end.

1) Маска подсети: 11111111.11111111.11110000.00000000

     IP:                         11101000.01111110.10010110.00010010

номер сети - там где у маски единицы, а номер хоста В сети - там где у маски нули.

т.е  0110.00010010 отсюда получаем номер хоста: 0110.00010010 =1554

2)   Маска подсети: 11111111.11111111.11100000.00000000

       IP:                         11001110.10011110.01111100.01000011

Номер хоста: 11100.01000011= 7235

3)  Маска подсети:  11111111.11111111.11111100.00000000

      IP:                          11100010.10111001.01011010.10100010 

 Номер хоста: 10.10100010=674