"CODE"31042;
"REAL""PROCEDURE"CHEPOL(N,X);
"VALUE"N,X;"INTEGER"N;"REAL"X;
"IF" N = 0 "THEN" CHEPOL :=1 "ELSE"
"IF" N = 1 "THEN" CHEPOL :=X "ELSE"
"BEGIN""INTEGER"I;"REAL"T1,T2,H,X2;
   T2:=X;T1:=1;X2:=X+X;
   "FOR"I:=2"STEP"1"UNTIL"N"DO"
   "BEGIN"H:=X2*T2-T1;T1:=T2;T2:=H"END";
   CHEPOL:=H
"END"CHEPOL;
        "EOP"