Готово :)
..............................
<em>var a, b, i, c :integer;</em>
<em>begin</em>
<em> read (a, b); </em><em>// вводим a и b </em>
<em> for i:=1 to 5 do</em>
<em> begin</em>
<em> c:=random(b-a)+a; </em><em>// присваиваем рандомные числа в заданном </em><em>промежутке</em>
<em> writeln (c); </em><em>// выводим число</em>
<em> end;</em>
<span><em>end.</em></span>
Частота дискретизации 44000 предполагает хранение 44000 отсчетов в секунду. При разрядности 16 бит = 16/8 = 2 байта, потребуется 44000·2 = 88000 байт для хранения информации за 1 секунду. А за минуту - в 60 раз больше, т.е. 60·88000 байт = 5280000 байт = 5280000/1024 Кбайт = 5156.25 Кбайт = 5156.25/1024 ≈ 5.035 Мбайт.
Тогда на диске объемом 700 Мбайт поместится примерно 700/5.035 = 139 минут записи.
Program Program;
var a, b, c, d: Integer;
begin
readln(a, b, c, d);
if a<b and a<c and a<d then
begin
writeln(a);
end;
if b<a and b<c and c<d then
begin
writeln(b);
end;
if d<a and d<b and d<c then
begin
writeln(d);
end
else
begin
writeln(c);
end;
end.