uses crt;
var n:longint; a:array[1..10000000]of longint;
Procedure Nhap;
var i:longint;
begin
   write('Nhap N: ');readln(n);
   for i:=1 to n Do 
      begin
         write('Nhap phan tu thu ',i,': ');readln(a[i]);
      end;
end;
Procedure Tongle;
var i,tong:longint;
begin      
   tong:=0;
   for i:=1 to n Do 
      if a[i] mod 2=1 then inc(tong,a[i]);   
   writeln('Tong ca so le: ',tong);
end;
Procedure Bangk;
var i,k:longint;
begin      
   write('Nhap k: ');readln(k);
   writeln('Chi so cac phan tu co gia tri bang k: ');
   for i:=1 to n Do if a[i]=k then write(i,' ');
end;
begin
clrscr;
   NHap;
   Tongle;
   Bangk;
readln
end.

uses crt;
var n,i:longint;
   a:array[1..1000]of longint;
procedure readArray;
var i:longint;
begin
   readln(n);
   for i:=1 to n do read(a[i]);
end;
procedure sumOfOddNumber;
var i,s:longint;
begin
   s:=0;
   for i:=1 to n do
      if a[i]mod 2=1 then inc(s,a[i]);
   writeln('Sum of odd number: ',s);
end;
procedure location;
var i,k:longint;
begin
   write('K: ');readln(k);
   write('Location: '); 
   for i:=1 to n do
      if a[i]=k then write(i,' ');
end;
begin
clrscr;
   readArray;
   sumOfOddNumber;
   location;
readln
end.