var
a: array[1..9999] of integer;
i, n: integer;
begin
randomize;
Write('Введите число эементов массива: '); readln(n);
for i:=1 to n do
begin
a[i]:=-999+random(1001);
write('a[', i, ']=', a[i]);
if a[i] mod 2 = 0 then write(' - кратно 3')
else write(' - не кратно 3');
writeln;
end;
writeln('Увеличим номера чисел, кратных 3, в 2 раза:');
for i:=1 to n do
begin
if a[i] mod 2 = 0 then
begin
a[i]:=a[i]*2;
writeln('a[', i, ']=', a[i]);
end;
end;
end.