В газетной статье на странице 64 строчки текста, в каждой строчке 32 буквы. В алфавите, которым закодирован текст, 128 символов. Найти инф. объём статьи в битах, байтахи Кбайтах.

program yrav;

var

  a,b,c,d,x1,x2,x: real;

begin

  writeln('введите коэффиценты квадратного уравнения');

  readln(a,b,c);

    d: =b*b-4*a*c;

    if d< 0 then writeln('корней нет');

    if (d> 0) and (a< > 0)and (b< > 0)and (c< > 0) then

    begin

        x1: =(-b+sqrt(d))/(2*a);

        x2: =(-b-sqrt(d))/(2*a);

        writeln('x1= ',x1: 6: 3,'    x2= ',x2: 6: 3);

    end;

  if  (a=0)and(b< > 0)and(c< > 0) then

  begin

      x=-c/b;

      writeln('один корень уравнения х= ',x: 6: 3);

  end;

  if (b=0)and(c< 0) and(a< > 0) then

  begin

    x1=sqrt(-c/a); x2=-sqrt(-c/a);

    writeln('x1= ',x1: 6: 3,'   x2= ' ,x2: 6: 3);

  end

  else writeln('корней нет! ');

  if (a< > 0) and(b< > 0)and(c=0) then

  begin

    x1: =0;

    x2: =-b/a;

    writeln('x1= ', x1: 6: 3,'        x2= ',x2: 6: 3);

  end;

end.