разобраться с заданием с первого по десятое но что-то у меня не получается совсем :-(

Internet Protocol (IP) обеспечивает маршрутизацию IP-пакетов, то есть доставку информации от компьютера-отправителя к компьютеру-получателю.(отправляет)

Transmission Control Protocol (TCP), то есть транспортный протокол, обеспечивает разбиение файлов на IP-пакеты в процессе передачи и сборку файлов в процессе получения. (собирает)

Рисунок: Фрагментация IP-пакетов при передаче между сетями с разным максимальным размером пакетов: К1 и 01 - канальный и физический уровень сети 1; К2 и Ф2 - канальный и физический уровень сети 2.

Цель: Функции уровня IP входит разбиение слишком длинного для конкретного типа составляющей сети сообщения на более короткие пакеты с созданием соответствующих служебных полей, нужных для последующей сборки фрагментов в исходное сообщение.

var a,b,c,d,min:real;

   flag: boolean;

begin

   flag:=true;

   writeln('Enter A, B, C, D numbers:');

   readln(a,b,c,d);

   if (a=d) then begin

      writeln('a equals to d!');

      flag:=false;

      min:=a;

   end;

   if (b=d) then begin

      writeln('b equals to d!');

      flag:=false;

      if (b<min) then min:=b;

   end;

   if (c=d) then begin

      writeln('c equals to d!');

      flag:=false;

      if (c<min) then min:=c;

   end;

   if flag then writeln('Max difference: ',d-min);

end.