В украинском я не ас но вроде понятно.
Есть массив натуральных чисел из Н эелементов. Ввести те которые кратны 3 и не кратны 7.
var
a:array [1..maxint] of integer;
b:array [1..100] of integer;
i,n:integer;
begin
writeln('Введите кол-во эелементов');
readln(n);
writeln('Введите элементы массива');
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
k:=0
for i:=1 to n do
if (a[i] mod 3 = 0) and (a[i] mod 7 <> 0 ) then begin k:=k+1; b[k]:=a[i]; end;
writeln('Итог');
For i:=1 to k do
write(b[k],' ');
end.