3430000.............................
Var n, s : integer;
begin
s := 0;
while 2 * 2 <> 5 do begin
readln(n);
if n < 0 then break;
if n > 100 then s := s + 1;
end;
writeln(s);
end.
8^x=32*2^20*2^3 *2^3(бит)
2^3x/8=2^5*2^20/8 (байт)
2^x=2^25 (байт)
x=25
<span>16(в степени х) Кб=16Гб
2^4x*2^10=2^4*2^30 байт
2^(4x+10)=2^34
4x+10=34
4x=24
x=6
</span>