Потому что музыка весит гораздо меньше, чем даже 3х минутное видео: у видео объем больше
Procedure solution(n: byte; var s: integer);
var
i: byte;
a: integer;
begin
s := 10;
for i := 1 to n do
begin
a := -20 + random(41);
write(a:5);
s := s + sqr(a);
end;
writeln
end;
var
n: byte;
p: integer;
begin
randomize;
write('n? ');
readln(n);
solution(n, p);
writeln(p)
end.
Это сумма арифметической прогрессии с первым членом a₁=50, разностью d=1, и последним членом aₐ=150. Количество членов в прогрессии можно найти как 150-50+1=101
begin
Writeln((50+150)/2*101);
end.
Результат
10100