program nguoclai;
uses crt;
var n, i: integer;
X: Array [1..100] of integer;
begin
write('Nhap so luong fan tu, n = '); readln(n);
For i := 1 to n do begin
write ('So X[,'i',] la: '); readln(X[i]);
end;
For i:=n down to 1 do write(X[i],',');
readln
end.