Python :

print('day vua nhap la: ',*[i for i in [int(input('a[%d]='%i)) for i in range (int(input('n=')))] ])

Pascal :

uses crt;
 var a : array[1..100] of longint ;
  n,i : longint ;
   begin
    clrscr;
write('n=');
 readln(n);
  for i := 1 to n do 
     begin
    write('a[',i,']=');
    readln(a[i]);
     end;
 write('Day vua nhap la: ');
  for i := 1 to n do
    write(a[i],' ');
       readln
        end.

Python :

print('day vua nhap la: ',*[i for i in [int(input('a[%d]='%i)) for i in range (int(input('n=')))] ])

Pascal :

uses crt;
 var a : array[1..100] of longint ;
  n,i : longint ;
   begin
    clrscr;
write('n=');
 readln(n);
  for i := 1 to n do 
     begin
    write('a[',i,']=');
    readln(a[i]);
     end;
 write('Day vua nhap la: ');
  for i := 1 to n do
    write(a[i],' ');
       readln
        end.

Python :

print('day vua nhap la: ',*[i for i in [int(input('a[%d]='%i)) for i in range (int(input('n=')))] ])

Pascal :

uses crt;
 var a : array[1..100] of longint ;
  n,i : longint ;
   begin
    clrscr;
write('n=');
 readln(n);
  for i := 1 to n do 
     begin
    write('a[',i,']=');
    readln(a[i]);
     end;
 write('Day vua nhap la: ');
  for i := 1 to n do
    write(a[i],' ');
       readln
        end.