Дана последовательность 
действительных чисел. Выяснить, будет ли она возрастающей (Паскаль) нужен листинг

var a:array[1..10] of real;i:integer;b:boolean;beginb:=true;for i:=1 to 10 doread(a[i]);for i:=1 to 9 doif a[i]>a[i+1] then b:=false;writeln(b);end.