Из массива а в массив в переписать все элементы, оканчивающиеся на 3, 7 или 9.

Const n=10; 
var a,b:array[1..n] of integer;
i,j,c:integer; 
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(51)-25;
 write(a[i]:4);
 end;
writeln;
j:=0;
for i:=1 to n do
 begin
 c:=abs(a[i]) mod 10;
 if (c=3)or(c=7)or(c=9) then begin j:=j+1; b[j]:=a[i]; end;
 end;
writeln('Полученный массив:');
for i:=1 to j do write(b[i]:4);
writeln;
end.

Пример:
Исходный массив:
  17   6  15 -23  19  -5 -12 -14   5  20
Полученный массив:
  17 -23  19