Задача … источника заключается в сжатии информации, поступающей на его вход.

uses crt; var

  a,b,c,min: integer; begin  writeln('введи три числа: ');   readln(a,b,c);   min: =a;   if b< min then min: =b;   if c< min then min: =c;   writeln('наименьшее из этих чисел:   ',min); end.

jrjkj rjkf_rjkjrjkf b yf rjkf[_rjkjrjkf

program m;

uses crt;

var a,b,c,sum: integer;

begin

clrscr;

readln(a,b,c);

sum: =a+b+c;

writeln('          ',sum);

readkey;

end.

64000 бит/с*16 c=1024000 бита/8=128000 байт=125 килобайт