1)Ввести массив A из 25 элементов. Cформировать массив B из элементов массива А,кратных трем.
2)Даны массив A и B из n элементов. Cформировать массив C из элементов массивов А и B, чередуя элементы.

1) var  A, B: array[1..25] of integer;    i, x: integer;    begin     writeln('введите элементы массива A: ');     for i := 1 to 25 do  begin       read(A[i]);        if A[i] mod 3 = 0 then       begin         x := x + 1;         B[x] := A[i];       end;     end;     write('элементы массива A, кратные трём: ');     for i := 1 to x do  begin       write(B[i], ' ');     end;   end.2) var  A, B, C: array[1..10000] of integer;     i, n, x: integer;     begin     writeln('введите размеры обоих массивов: ');     read(n);     write('введите элементы массива A: ');     for i := 1 to n do  begin       x := x + 1;       read(A[i]);     end;     write('введите элементы массива B: ');     for i := 1 to n do  begin       read(B[i]);     end;     write('элементы массива C: ');     for i := 1 to x do  begin       C[i] := A[i];       write(C[i], ' ');       C[i] := B[i];       write(C[i], ' ');     end;   end.