begin
   comment 'LIBRARY' 1;
   real array
     JJ[1 : 8];
   procedure P(X);
      value
        X;
      integer
        X;
   ;
   procedure DEVIATION;
   begin
      real
        X,
        Y;
      P(JJ)
   end;
   DEVIATION;
end