Сколько килобайт информации содержит сообщение объемом 2048 кбит

паскаль, одномерный массив

var a: array [1..6] of integer; i, max: integer;

begin

for i: =1 to 6 do read(a[i]);

max: =a[1];

for i: =1 to 6 do

if a[i]> max then max: =a[i];

writeln(max); readln; end.

сумму чисел один,два,три,четыре,пять разделить на разность чисел 10 и 7.равно пяти.