Const
 N=40;
Var
 f1:file of Real;
 f2:file of Integer;
 a,a1,a2,d:Real;
 m,i:Integer;

Begin
 Assign(f1,'xxx');
 Rewrite(f1);
 Assign(f2,'yyy');
 Rewrite(f2);
 Randomize;
 For i:=1 to N do
  begin
   a:=Random*100;
   write(f1,a);
  end;
 Close(f1);
 ReSet(f1);
 Read(f1,a1);
 Write(a1:8:3);
 Repeat
  m:=1;
  repeat
   read(f1,a2);
   write(a2:8:3);
   d:=a2-a1;
   if d>0 then Inc(m);
   a1:=a2;
  until (d<=0) or EoF(f1);
  if m>1 then write(f2,m);
 Until EoF(f1);
 Writeln;
 Close(f1);
 Close(f2);
 Reset(f2);
 Repeat
  Read(f2,m);
  Write(m:4);
 Until EoF(f2);
 Close(f2);
 Readln
End.