Viết chương trình

Nhập số n ( n là số lượng số nhập vào), kiểm tra trong các số đã nhập để tìm max trong dãy số ( các số nhập vào sẽ lưu giá trị vào biến x)
VD:
-        Nhập n =4 thì sẽ nhập vào được 4 số
·       3
·       1
·       0
·       8
thì in  Max = 8
 
thuật toán 
-        Nhập n = 4
-        Max: = 1
-        For I := 1 to n do
·       Nhập số thứ I (biến x: lưu giá trị nhập vào)
·       Đk max< x à max=x
-        In max ra màn hình
viết chương thình giúp mình với