program bai_giai;

uses crt;

type kmang=array[1..1000] of integer;

var A:kmang;

     n,i:integer;

{---Thu-tuc-nhap---}

procedure nhap;

begin

      write('Nhap N: ');  readln(n);

      for i:=1 to n do

            begin

                  write('Nhap so thu ',i,': ');  readln(A[i]);

            end;

end;

{---Ham-tinh-tong---}

function tong(A:kmang; n:integer):integer;

var j:integer;

begin

      tong:=0;

      for j:=1 to n do

            if A[j] mod 2=1 then tong:=tong+A[j];

end;

{---Thu-tuc-chi-so---}

procedure chi_so(A:kmang; n:integer);

var k:integer;

begin

      write('Nhap k: ');  readln(k);

     write('Cac vi tri: ');

      for i:=1 to n do

            if A[i]=k then write(i,' ');

end;

{---Chuong-trinh-chinh---}

BEGIN

     clrscr;

      nhap;

      writeln('Tong cac phan tu le la: ',tong(A,n));

      chi_so(A,n);

      readln;

end.

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.