Program Vidu;
Uses crt;
Type Mang1C = array[1..10] of Integer; {khai báo tên mảng – cách 2}
Var A:Mang1C; {Đặt tên mảng là A}
i:integer;
Begin
        clrscr;
        Writeln('Nhap gia tri cho mang A');
        For i:=1 to 10 do 
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]); 
        End;
        Write('Danh sach cac phan tu trong mang A: ');
        For i:=1 to 10 do
                Write(A[i]:5);
        Readln;
End.