Помогите написать прогу: Разработать алгоритм программы, которая проверяет,…

Uses crt; var i: integer; a: array[1… 100] of real; beginwriteln ('Введите последовательность чисел. 0 — конец последовательности.'); read (a[1]); i: =2; while true dobeginread (a[i]); if a[i]=0 thenbreak; if a[i]>=a[i-1] thenbeginwriteln ('No.'); halt; end; inc (i); end; writeln ('Yes.'); end.