Дана последовательность из N атуральных чисел , определяюшая рост учеников в классе . Определить , выстроены ли ученики по росту

Var i, k: integer;   
        N: array[1..10] of real;  
    begin   
       for i:=1 to 10 do readln(N[i]); 
       k:=1;   
       for i:=1 to 9 do   
         if k<>0 then        
            if N[i]                               else k:=0;     
       if k<>0 then writeln(Ученики выстроены по росту)   
                  else writeln(Ученики выстроены не по росту); 
    end.       

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.