code 31054;
procedure SHTCHSPOL(N,A);
value N; integer N; array A;
begin 
    CHSPOL(N,A);
    LINTFMPOL(2,-1,N,A);
end SHTCHSPOL;
        eop