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.
