Дана последовательность целых чисел. Прищнак окончания ввода- число 0(элементом последовательности не считается ). В последовательности как минимум одно число. Написать программу, определяющую, является ли последовательность чисел возрастающей. Если да програма должна вывести true, если нет- false.

var a,b:integer; l:boolean;beginwrite('a = ');readln(a);l:=true;while (a<>0) do begin b:=a; write('a = '); readln(a); if (a<>0)and(a<=b) then l:=false; end;writeln(l);end.Пример 1:a = 3a = 6a = 9a = 4a = 0FalseПример 2:a = 3a = 6a = 7a = 0True