var 
a:array[1..1000] of integer;
i,n,s:integer;
begin
randomize;
s:=0;
write ('n='); readln (n);
for i:=1 to n do 
begin
a[i]:=random (100)-50; 
end;
writeln ('Massiv');
for i:=1 to n do 
write (a[i],' ');
writeln;
writeln ('Number');
for i:=1 to n do 
if (a[i] mod 2 <>0) then begin 
writeln (i);
s:=s+a[i];
end;
writeln ('summ=',s);
end.