Каков информационный объем в килобайтах моноаудиофайла длительностью звучания 16 секунд при глубине звука 8 бит и частоте 8 кгц

Var a,b: real; begin readln(a,b);           if a> b then begin writeln('квадрат числа',a,'=',a*a);                                                     writeln('корень числа ',b,'=',sqrt(b));                                       end;           if b> a   then begin writeln('квадрат числа  ',b,'=',b*b);                                                     writeln('корень числа  ',a,'=',sqrt(a));                                       end;                     end.

Var     n,  n2,  sum,  pr: integer; begin       read(n);     sum : = (n div 10)+(n  mod  10);     pr : =     (n div 10)*(n mod 10);       n2 : =  (n mod 10)*10  +  (n  div  10);       writeln('сумма  цифр  =  ',  sum);       writeln('прозведение цифр = ', pr);         writeln('полученое  число = ', n2);   end.