Viết chương trình sử dụng biến mảng để nhập một dãy số gồm 10 số từ bàn phím và in dãy số đó ra màn hình
Program Nhapso;
uses crt;
var n : Integer;
      A[i] : Real;
begin
       clrscr;
       write ('Nhap do dai cua day so,n=');readln(n)<br />       writeln('Nhap cac phan tu cua day so');
For i : =1 to 10 do 
   Begin 
     write('a[i]',n); readln(n);
      readln;
      end;
     end.