uses crt;

var i,j,n:longint; kt:boolean;

A:array[1..1000000] of real;

begin

clrscr;

kt:=true;

write('Nhap so chu so thuc:'); readln(n);

for i:=1 to n do

 begin

  write('Nhap chu so thuc thu ',i,':');

  readln(A[i]);

end;

for i:=1 to n-1 do if A[i]>A[i+1] then kt:=false;

if kt=true then write('Day la day so thuc tang dan')

 else write('Day khong phai la day so thuc tang dan');

readln;

end.

# Tạo danh sách chứa các số thực 

ds =  [float(x) for x in input("Nhập các số thực, cách nhau bởi dấu cách: ").split()]

print("Danh sách vừa nhập:", ds)

# Kiểm tra xem trong danh sách có phải là dãy tăng dần hay không 

day_so_tang_dan = all(ds[i] < ds[i + 1] for i in range(len(ds) - 1))

if day_so_tang_dan == True:   

    print("Danh sách là một dãy tăng dần.") 

else:   

    print("Danh sách không phải là một dãy tăng dần.") 

Chúc bạn học tốt nha!