F5
Или зеленая стрелочка возле верхнего меню
Var
x,k:integer;
a:array[1..100] of integer;
begin
k := 0;
read(x);
while x <> 0 do
begin
k := k + 1;
a[k] := x;
read(x)
end;
writeln(k);
for x := 1 to k do
write(a[x],' ')
<span>end.</span>
2 ^ i= N
N = 65536
i= 16
объём = 800*600*16 = 7680000 bit = 960000 bait = 937.5 Кбайт