code 31043;
procedure ALLCHEPOL(N,X,T);
value N,X;integer N;real X;real array T;
if N = 0 then T[0] :=1 else 
if N = 1 then begin T[0] := 1; T[1] := X end else 
begin integer I;real T1,T2,H,X2;
   T[0]:=T1:=1;T[1]:=T2:=X;X2:=X+X;
   for I:=2step 1until N"DO"
   begin T[I]:=H:=X2*T2-T1;T1:=T2;T2:=H"END"
end ALLCHEPOL;
        eop