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