Сколько бит получится, если из 5120 килобайт вычесть 4 мегабайт и прибавить 50 байт? в ответе укажите только число.

8960400000 бит получается

Var  a: array[1..18] of integer;   i,n,n2,max: integer; begin  for i: =1 to 18 do begin  case i of  1..6: begin write('введите ',i,'-ую оценку по обязательной программе '); readln(a[i]); n: =n+a[i]; if i=6 then begin max: =n; n: =0; n2: =1; end; end;   7..12: begin write('введите ',i-6,'-ую оценку по короткой программе '); readln(a[i]); n: =n+a[i]; if i=12 then begin if n> max then begin max: =n; n2: =2; end; n: =0; end; end;   13..18: begin write('введите ',i-12,'-ую оценку по произвольной программе '); readln(a[i]); n: =n+a[i]; if i=18 then begin if n> max then begin max: =n; n2: =3; end; n: =0; end; end;   end;   end;   case n2 of  1: write('лучшая оценка по обязательной программе = ',max);   2: write('лучшая оценка по короткой программе = ',max);   3: write('лучшая оценка по произвольной программе = ',max);   end; end.