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:=2step 1until N"DO"
   begin H:=X2*T2-T1;T1:=T2;T2:=H"END";
   CHEPOL:=H
end CHEPOL;
        eop