Cho mảng A 10 phần tử số nguyên viết chương trình tạo mảng B gồm các phần tử chia hết cho 3 và 5 trong mảng A Mọi người giúp mình với :<

uses crt;

var a : array[1 .. 10] of integer;

      b : array[1 .. 10] of integer;

i, j, dem : integer;

begin

clrscr; dem := 0;

for i := 1 to 10 do

begin write('Nhap so thu ', i ,' : ');

readln(a[i]);

if ((a[i] mod 3 = 0) and (a[i] mod 5 = 0))

then dem := dem + 1;

end;

j := 1; i := 1;

while i <= 10 do

begin

if ((a[i] mod 3 = 0) and (a[i] mod 5 = 0))

then begin

b[j] := a[i]; j := j + 1; end;

i := i + 1;

end;

write('Mang B : ');

for i := 1 to dem do write(B[i],'  ');

readln

end.

program ptuchiahet;

uses crt;

var A,B:array[1..10] of integer;

      i,d:byte;

begin

clrscr;

writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG A:');

d:=0;

for i:=1 to 10 do

 begin

  write('A[',i,'] =  ');

  readln(A[i];

  if A[i] mod 15=0 then

   begin

    inc(d);

    B[d]:=A[i];

   end;

 end;

write('Mang A la: ');

for i:=1 to 10 do

 write(A[i],' ');

writeln;

writeln('Mang B tao thanh la: ');

for i:=1 to d do

 write(B[i],' ');

readln

end.