"найти произведение двузначных нечетных чисел кратных 13 в интервале от 1 до 1000"

Program gt; var i,p: int64; begin p: =1; for i: =1 to 1000 do begin if(i mod 2=1)and(i mod 13=0)then p: =p*i; end; writeln(p); end.

Устройства, которые предполагают использование питания от сети получаю питание из розетки, в нашей стране 220 вольт. все беспроводные устройства получают питание от батареек или аккумуляторов. флешки, жесткие диски, клавиатуры, проводные мыши получают питания от кабеля или разъема к которому они подключены, где помимо проводков данные, есть дополнительные питающие, несущие ток. гарнитура и наушники бывают беспроводные и проводные, для последних питание не нужно, т.к это  пассивные устройства.

Var   a: array[1..1000] of integer;       i: integer;   chet: integer;   nechet: integer; begin     i: =1;     randomize;     while (i< =1000) do        begin         a[i] : = random(10);         if( a[i] mod 2 = 0) then           chet: =chet+1         else nechet: = nechet + 1;           i  : = i + 1;   end;   writeln('четных чисел: ',chet,' ','нечетных чисел: ' ,nechet) end.