===== PascalABC.NET =====
begin
var q := new Queue<integer>(SeqRandom(10, -99, 99));
q.Println;
q.Enqueue(q.Take(5).Sum);
q.Println;
end.
Первая запись = 2 канала * 10 с * 16000 ГЦ * 24 бита = 7680000 бита.
Вторая запись = 1 канал * 10 с * 16000 ГЦ * 24 бита = 3840000 бита.
Общий вес файла: 11520000 бита = 1440000 байт = 1406.25 Кбайт = 1406 Кбайт.
Ответ: 1406 Кбайт.
Program gt;
var a,b,c,d,min:integer;
begin
read(a,b,c,d);
min:=a;
if(b<min)then min:=b;
if(c<min)then min:=c;
if(d<min)then min:=d;
writeln(min);
end.
Если там вещественные числа то в var-е вместо integer напиши rel
В десятичной это: 172 - 4 = 168
В двоичной 168 это 10101000