Пример источника информации и рассказать о нём

источник информации: голосовые связки медведя

оборонительный звук, издаваемый медведем (частота 400–500 гц), о том, что рядом есть медведь и он злится, лучше с ним не пересекаться. человек воспринимает эту информацию при ушей, обрабатывает и принимает решение, которое может спасти ему жизнь.

Program prog; uses crt; var a,b,t: real; begin clrscr; write('a = '); readln(a); write('b = '); readln(b); if (a> b) then     begin     t: =a;     a: =2*a*b;     b: =(t+b)/2;     end; if (a< b) then     begin     t: =b;     b: =2*a*b;     a: =(t+a)/2;     end; if(a=b) then               writeln('числа равны')               else               writeln('a = ', a, ', b = ', b); end.

Program prog; uses crt; var a,b,t: real; begin clrscr; write('a = '); readln(a); write('b = '); readln(b); if (a> b) then     begin     t: =a;     a: =2*a*b;     b: =(t+b)/2;     end; if (a< b) then     begin     t: =b;     b: =2*a*b;     a: =(t+a)/2;     end; if(a=b) then               writeln('числа равны')               else               writeln('a = ', a, ', b = ', b); end.