Напишите программу, которая выводит номера элементов массива, равных заданному значению X.

var i, n, x: integer;

b: boolean;

a: array [1 ... 100] of integer;

begin

b:=true;

write ('n = ');

read (n);

for i:=1 to n do

begin

a[i]:=10+random (11);

write (a[i]:4);

end;

writeln;

write ('x = ');

read (x);

for i:=1 to n do

if a[i] = x then

begin

write (i:4);

b:=false;

end;

if b then writeln ('-1');

end.