Viết phương trình nhập vào hai mảng nguyên gồm 10 phần tử. Đưa ra giá trị nhỏ nhất của 2 mảng đó. ( viết phương trình pascal nha các bạn ơi :_) )

uses crt;
var A:array[1..10] of integer;
    B:array[1..10] of integer;
    i,n,min:integer;
begin
   clrscr;
   for i:=1 to 10 do
   begin
      write('Nhap phan tu thu ',i,' cua mang A: ');
      readln(A[i]);
   end;
   min:=A[1];
   for i:=2 to 10 do if A[i]<min then min:=A[i];
   for i:=1 to 10 do
   begin
      write('Nhap phan tu thu ',i,' cua mang B: ');
      readln(B[i]);
      if B[i]<min then min:=B[i];
   end;
   write('Gia tri nho nhat cua 2 mang la: ',min);
   readln
end.

program ct;

uses crt;

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

      i,min:integer;

begin clrscr;

   for i:=1 to 10 do

     begin

        write('Nhap phan tu thu ',i,' cua mang A: '); readln(A[i]);

     end;

   for i:=1 to 10 do

     begin

        write('Nhap phan tu thu ',i,' cua mang B: '); readln(B[i]);

     end;

     min:=A[1];

   for i:=1 to 10 do

     begin

        if A[i]<min then min:=A[i];

        if B[i]<min then min:=B[i];

     end;

   write('Gia tri nho nhat cua hai mang do la: ',min);

readln;

end.

Học tốt!