var  a:array [1..10] of integer;
i,k,ki:integer;
begin
randomize;
for i:=1 to 10 do  
a[i]:=random(10)+1;
writeln ('Массив');
for i:=1 to 10 do  
writeln ('a[',i,']=',a[i]);
for i:=1 to 10 do 
if (a[i] mod 2=1) then begin
k:=a[i];
ki:=i;
end;
writeln ('Значение ',k);
writeln ('Индекс ',ki);
end.