Program ElEven;
Const N=5; //Число элементов массива
Var M: Array[1..N] Of Integer;
    I,R: Integer;
Begin
  // Заполнение массива и вывод результата
  WriteLn('Please write ten numbers: ');
  WriteLn;
  For I:=1 To N Do Begin
    Write('Number ',I,' -> ');
    Read(M[I]);
    If M[I] Mod 2<>0 Then R:=R+M[I];
  End;
  WriteLn;
  WriteLn('Result: ',R);
End.