const
n=5;
var
a:array [1..n] of real;
i,k:integer;
begin
For i:=1 to n do
begin
a[i]:=random(10);
writeln(a[i]);
end;
For i:=1 to n-1 do
begin
if a[i]>=a[i+1] then
inc(k) else break;
end;
if k=4 then writeln('0') else
writeln('первое число,нарушающее закономерность = ',k+1);
end.