(1046000+2576) ×8 = 1.048.576 Бит
1.048.576 Бит = 131072 Байт = 128 КБ.
Ответ: 1.048.576 Бит.
Program adres;
begin
writeln ('мой адрес: здесь пиши свой адрес');
writeln ('мой телефон: 8 888 88 88');
end.
Var
i, x, y: integer;
a: array[1..30]of integer;
begin
readln(x, y);
for i := 1 to 30 do read(a[i]);
for i := 1 to 30 do
if (i mod 2 = 0) and (a[i] >= x) and (a[i] <= y) then
begin
write('YES');
exit;
end;
write('NO');
end.