uses crt;
var A : array[1 .. 10] of real;
i, n : integer;
begin
clrscr;
write('Nhap so luong phan tu : '); readln(n);
write('Nhap ', n ,' so thuc : ');
for i := 1 to n do read(a[i]);
write('Mang A : ');
for i := 1 to n do write(a[i] : 2 : 1,' ');
readln
end.