Viết chương trình tạo mảng B gồm m số nguyên ( m bé hơn hoặc bằng 30, m được nhập từ bàn phím. Đưa ra màn hình tích các số nguyên là bội của 3 và liệt kê các số còn lại trong mảng B Làm hộ e với

program Min;
uses crt;
var B:array[1..30] of integer;
    m,i,tich:integer;
begin
   clrscr;
   tich:=1;
   repeat
   begin
      write('Nhap m: ');
      readln(m);
   end;
   until m<=30;
   for i:=1 to m do
   begin
      write('Nhap so hang thu ',i,' : ');
      readln(B[i]);
   end;
   writeln;
   writeln('Cac so con lai trong mang la: ');
   for i:=1 to m do
      if B[i] mod 3 = 0 then tich:=tich*B[i] else write(B[i]:4);
   writeln;
   writeln('Tich cac so nguyen la boi cua 3: ',tich);
   readln
end.
      

Bạn tham khảo nha :D