Program  TenCT;
Uses crt;
Var  A: array[1..100] of real;
       i,n:integer;
Begin
  Clrscr;
  Write('Nhap so phan tu cua day n= '); readln(n);
  For i:=1 to n do
    begin
      write('A[',i,']= '); readln(A[i]);
    end;
  writeln('Day vua nhap la: ');
  for i:=1 to n do
    write(A[i]:0:1,' ');
  readln;
End.