7.10
program z710;
uses crt;
const n=10;
type myarray=array[1..n] of integer;
var A, B: MyArray;
i,j:Integer;
BEGIN
clrscr;
writeln('Ââåäèòå ',n,' ÷èñåë');
For i:=1 to n do readln (a[i]);
j:=0;
for i:=1 to n do
if A[i] mod 2=0 then begin Inc(j);
B[j]:=i; End;
for i:=1 to j do write(b[i]:3);
writeln;
readln;
END.