var
i,s:integer;
Begin
s:=1;
for i:= 1 to 15 do
if i mod 2=1 then s:=s*i*i;
writeln(s);
End.
Вот он тождество, 1≡1 , 0≡0
Можно улучшить аудиозапись 2мя способами: 1) юзай плагины которые устраняют шумы, артефакты, треск и щелчки.
2)не парься и закажи очистку в студии у знакомых звукорежиссёров.