Информатика 5 класс на вход "черного ящика"подаётся информации, а на выходе "черного ящика" появляется информация. отгадайте правило по которому происходит преобразование

Потому что соединение не идеально, оно прерывается, некоторые данные по пути теряются. Допустим, я хочу передать файл по интернету. Если файл небольшой, то велика вероятность, что он не пострадает. В противном случае можно потратить много времени на передачу части файла, после чего данные передадутся с ошибкой, которую мы обнаружим только после передачи всего файла. Передавая информацию пакетами же можно этого избежать, так как любая потеря данных будет сразу видна по плохому пакету. После этого можно эту ошибку сразу и обработать и, допустим запросить повтор предыдущего пакета или попытаться починить пакет, прибывший с ошибкой.

Program G;
Uses Crt;
Var count, num, ch: integer;
Begin 
 ClrScr; 
 Writeln('Год високосный? 1 - да, 0 - нет'); 
 Readln(Ch); 
 If ch=1 then 
  Begin   
   Writeln('Введите номер месяца'); 
   Readln(num);   
   Сase num of  
    1, 3, 5, 7, 8, 10, 12: writeln('В месяце 31 день.'); 
    4, 6, 9, 11: writeln('В месяце 30 дней.'); 
    2: writeln('В месяце 29 дней');   
   else writeln('Некорректный ввод данных')   
  End; 
 End  
 Else if ch=0  then 
  Begin   
   Writeln('Введите номер месяца');    
   Readln(num);
   Сase num of    
    1, 3, 5, 7, 8, 10, 12: writeln('В месяце 31 день.');   
    4, 6, 9, 11: writeln('В месяце 30 дней.');   
    2: writeln('В месяце 28 дней');   
   else writeln('Некорректный ввод данных')   
   End; 
  End 
 Else writeln('Некорректный ввод данных');
Readln; 
End.