program h740;
uses crt;
const n=5;
var
x:array [1..n] of integer ;
i,j,g:integer;
BEGIN
clrscr;
randomize;
for i:=1 to n do
begin
x[i]:=random(50)-10;
write(x[i]:4);
end;
writeln;
j:=0;
writeln ('введите g');
readln (g);
for i:=1 to n do
if x[i]=g then
begin
j:=i;
end;
writeln('индекс ', j);
readln;
END.