Ван нужно перевести килобайты в байты?
0,25 Кб = 256 б
Var
n: integer;
begin
Readln(n);
var a := ReadArrInteger(n);
writeln(a.Where(x -> (x mod 6 <> 0) and (x mod 10 <> 7)).Count)
end.
Procedure SortBySelect(var a: Vector; kol:integer);
{Сортировка выбором}
var
i, j, k: integer;
x: integer; {заменить на тип элементов массива}
begin
for i := 1 to kol-1 do
begin
k := i;
x := item[i];
for j := i+1 to count do
if item[j]<x then
begin
k := j;
x := item[j]
end;
item[k] := item[i];
item[i] := x
end
end;
Const
x0 = 1.909;
x1 = 6.23;
step = 1.005;
t=10;
var
i: real;
begin
i:=0;
while i<(x1-x0)/step do
begin
writeln('a(', x0+i, ') = ', sqrt(1+sqr(x0+i))+t);
i:=i+step;
end;
if (x0+i-step)<(x1) then writeln('a(', x1, ') = ', sqrt(1+sqr(x1))+t)
end.
Если в ворде ,то нужно выделить картинку в документе(открытым) переходишь на вкладку Формат.Потом в группе упорядочить,нажимаешь кнопку Обтекание текстом и выбираешь пункт За текстом
P.s<span> Это в ворде 2010 года ,но наверно в остальных версия также</span>