Из массива А, состоящего из n целых элементов, получить массив В, в который войдут все элементы массива А, кратные 3.Число n и элементы массива А ввести с клавиатуры. На экран вывести массив В.

program znanija;Var    a, res: array of integer;    x, N, i, k: integer;begin    readln(N);    SetLength(a,N);    SetLength(res,N);        for i := 0 to N - 1 do        readln(a[i]);            k := 0;    for i := 0 to N - 1 do           if a[i] mod 3 = 0 then           begin               res[k] := a[i];               k := k + 1;           end;    for i := 0 to k - 1 do        writeln(res[i]);     end.

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ReadArrInteger('Вводите:',ReadInteger('n='));  var b:=a.Where(t->t mod 3=0).ToArray; b.Printlnend.