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.
