Viết chương trình pascal và biến mảng kiểu số nguyên gồm 50 phần tử

program nhap_phan_tu;

uses crt;
var a:array[1..50] of integer;n,i:integer;
begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do
            begin
                  write(‘a[‘,i,’]: ‘); readln(a[i]);
            end;
     readln;
end.