Циклы While и Repeat

[Arxanoid]

Помогите написать программу для задачи
Найти Сумму целых отрицательных непарных чисел, больших -75. Нужно двумя способами While, Repeat) помогите, буду очень признателен.

[Stilet]

Непарных это как?

[newerow1989]

var p:array[1..10] of integer;
    s,i:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      p[i]:=-100+Random(200);
      Write(p[i],'  ');
   end;
   Writeln;
   s:=0;
   i:=0;
   Repeat
      i:=i+1;
      If (p[i]<0) and (p[i]>-75) and (p[i] mod 11<>0) then
         s:=s+p[i];
   Until i=10;
   Writeln(s);
   s:=0;
   i:=0;
   While i<10 do
   begin
      i:=i+1;
      If (p[i]<0) and (p[i]>-75) and (p[i] mod 11<>0) then
         s:=s+p[i];
   end;
   Writeln(s);
   Readln;
end.

Сойдет?