Многочлен чебышева

[Rыся]

Помогите пожалуйста с задачей
Дано целое K (2<=k<=20). Найти коэффиценты k-го многочлена Чебышева.
Последовательность Ti(x) многочленов Чебышева задается формулами:
T0(x)=1; T1(x)=x; Ti(x)=2xTi-1(x)-Ti-2(x), i=2,3,4...
Уже совсем отчаилась, не знаю как решать, уже сегодня сдавать...
Что-то пыталась сделать, вот:

var
  k, Tn: integer;
 
begin
  writeln ('‚ Введите число k (2<=k<=20)');
  readln (k);
  if(k>=2) and (k<=20) then
    T0:=(0.1);
    T1:=(1.0);
  for Tn:= 2 to k do
    T:=(2*T1[0]-T0[0], 2*T1[1]-T2[1]);
    T0:=T1;
    T1:=T;
  write(T);
  readln;
end.

Буду очень очень благодарна за помощь

[IT-man]

Стучи в аську! Сделаю за вознаграждение.

[RUSt88]

я так понял времени уже нет, а то б сегодня помог