Program Series36;
Const 
n=100;
Var 
K:integer;
sum,sum_all:integer;
A:integer;
i:integer;
Buff:integer;
bool:boolean;
Begin
write('Enter please K: '); readln(K);
sum_all:=0;
for i:=1 to K do
begin
sum:=0;
Buff:=0;
bool:=true;
repeat
//write('Введиете элемент(конец набора = 0)');readln(A);
A:=random(9);
sum:=sum+1;
if(A<>0)then
if(Buff>A)then bool:=false
else Buff:=A;
until (a = 0)and(sum>2);
if(bool)then
begin
sum_all:=sum_all+1;
end;
end;
writeln('Всего наборов возростающих: ',sum_all);
end.