mình không hiểu câu b lắm nhưng mình làm đại nha
program bai_giai;
var n,s,i:integer;
    a:array[1..100] of integer;
begin
     writeln('nhap n:');
     readln(n);
     for i:=1 to n do
         begin
              writeln('nhap phan tu thu ',i,' trong mang:');
              readln(a[i]);
         end;
         s:=0;
         write('cac so vua nhap la:');
     for i:=1 to n do
         begin
              write(a[i]:2);
         end;
         writeln;
         writeln('vi tri cua so chia het cho 3 la:');
         write('      vi tri:');
     for i:=1 to n do
         begin
         if a[i] mod 3 =0 then
              write(i:1,';');
         end;
     readln;
end.