viết phương trình nhập vào mảng gồm 10 số nguyên

program nhap_mang;

uses crt;

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

      i:integer;

begin

     clrscr;

     for i:=1 to 10 do

          begin

               write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

          end;

     write(‘Mang vua nhap la: ‘);

     for i:=1 to 10 do write(A[i],’ ‘);

     readln;

end.