Program z_42;
uses crt;
var x:array[1..100] of integer;
n,j,i:integer;
BEGIN
clrscr;
write('Vvedite razmernost massiva n');
readln(n);
randomize;
for i:=1 to n do begin
x[i]:=random(20)-12; write(x[i]:7); end;
writeln;
for i:=1 to n do
if (x[i]<0) and (x[i] mod 5=2) then
begin
j:=i; end;
writeln('index',j); writeln;
readln;
END.