Разница в длине сообщений составляет 20 - 6 = 14 символов
И на каждый символ приходится
42/14 = 3 байта
Но ответ просят в битах
3*8 = 24 бита
(72-68)+ (27-19)= 4+ 8= 12
uses Crt;
var a, b, temp, i, S:integer;
begin
ClrScr;
Write (' a = '); ReadLn(a);
Write (' b = '); ReadLn(b);
S:=0;
i:=a;
while i<=b do
begin
if (i mod 2 = 0) then S:=S+i;
i:=i+1;
end;
WriteLn(' S = ', S);
ReadLn;
end.
Если на каждый цвет выделено по байту (и нет прозрачности), то i = 32*64*3 = 6144 байт = 6 Кбайт.