Здравствуйте, напишите бизнес план в программе aris 1. прадажа собак 2. получении ветеринарого паспорта
очень нужно​

Для того, чтобы последовательность была возрастающей, для каждого очередного элемента new и предыдущего old должно выполняться условие new > old. Любое нарушение данного условия приводит к тому, что последовательность не может быть возрастающей.

Program Sequence;

var old, new : real; 

f : boolean; 

begin
write('Введите x=');
readln(old);
write('Введите x=');
readln(new);
f:=true;
repeat if new<=old then f:=false;
old:=new;
write('Введите x=');
readln(new);
until new=0;
if f then writeln( 'Последовательность возрастающая')
else writeln( 'Последовательность не является возрастающей');
end.

А вот так понятнее: 1001110= 
1) проставь над каждой цифрой числа справо на лево двойки со степенями т.о. чтобы над первым нулем (справа) стояла 2 в нулевой степени, над единицей - 2 в первой степени, над следующей единицей - 2 во второй степени, и т.д. Т.О над последней единицей (слево) будет 2 в седьмой степени. а теперь смотри как получается число в десятичной: надо сложить произведения этиз двоек на те числа, которые стоят под ними соответственно. 
итак: 
1001110=2в шестой* 1+2в пятой*0+2 в четвертой*0+2 в третьей*1+2 во второй*1+2 впервой*1+2 в нулевой*0 = 64+8+4+2=78