ПОМОГИТЕ ПОЖАЛУЙСТА ДО ЗАВТРА ОЧЕНЬ НАДО!!!!!!!!!!!!!

input n                                              -вводим количества деревьевdim Tree(n) as integerfor i=1 to n    Tree(i)=int(rnd()*1000)   -заполняем массивnextmax=Tree(1)for i=2 to n  if Tree(i)>max then max=Tree(i)   -проверка элементов массиваnextPrint max          -выводим максимальную--------------------------