Задачка на многочлен Чебышева

var
  i, k: byte;
  x, T0, T1, c: real;
  
begin
  repeat
    writeln;
    write(' k = ');
    readln(k);
    if not (k in [2..20]) then 
     writeln('Введите k с диапазона [2, 20]');    
  until k in [2..20];
  write(' x = ');
  readln(x);
  T0 := 1;
  T1 := x;
  for i := 2 to k do
  begin
    c := T1;
    T1 := 2 * x * T1 - T0;
    T0 := c
  end;
  writeln;
  write(' T', k, ' = ', T1)
end.

var
  i, k: byte;
  x, T0, T1, c: real;
  
begin
  repeat
    writeln;
    write(' k = ');
    readln(k);
    if not (k in [2..20]) then 
     writeln('Введите k с диапазона [2, 20]');    
  until k in [2..20];
  write(' x = ');
  readln(x);
  T0 := 1;
  T1 := x;
  write(T0, '  ', T1);
  for i := 2 to k do
  begin
    c := T1;
    T1 := 2 * x * T1 - T0;
    write('  ', T1:0:5); //точночть 5 знаков
    T0 := c
  end
end.

var
  T: array[0..20, 0..20] of Integer;
  i, j: Integer;
  
begin
  T[0,0]:=1;
  T[1,0]:=0;
  T[1,1]:=1;
  for i := 2 to 20 do begin
    for j := 0 to i-2 do T[i,j] := -T[i-2,j];
    for j := 0 to i-1 do T[i,j+1] := T[i,j+1] + 2*T[i-1,j];
  end;
  for i := 0 to 20 do begin
    for j := 0 to i do write(T[i,j], ' ');
    writeln;
  end;
end.

var
  a, b, s: String;
  i: Integer;
  
begin
  a:='afdsfg';
  b:='datvl';
  
  s := '';
  for i:=1 to Length(a) do begin
    if (Pos(a[i], s) = 0) and (Pos(a[i], b)<>0) then
      s := s + a[i];
  end;
  writeln(s);
end.

var
  T: array[0..20, 0..20] of Integer;
  i, j: Integer;
  
begin
{Присваивания первым двум многочленам}
  T[0,0]:=1;
  T[1,0]:=0;
  T[1,1]:=1;
{вычисление многочленов последовательно с T2 до T20}
  for i := 2 to 20 do begin
    for j := 0 to i do T[i,j] :=0; {Первоначальное обнуление}
    for j := 0 to i-1 do T[i,j+1] := T[i,j+1] + 2*T[i-1,j]; {Первый член формулы}
    for j := 0 to i-2 do T[i,j] := T[i,j] - T[i-2,j]; {Второй член формулы}
  end;
{Вывод результатов}
  for i := 0 to 20 do begin
    for j := 0 to i do write(T[i,j], ' ');
    writeln;
  end;
end.

var
  F: array[0..100, 0..100] of integer;
  i, j: byte;
  
begin
  f[0,0] := 1;
  f[1,0] := 1;
  f[1,1] := 0;
  for i := 2 to 20 do begin
    f[i,0] := 2 * f[i-1,0]; //коэф. при i для i-го уравнения
    f[i,1] := 2 * f[i-1,1]; //коэф. при (i-1) для i-го уравнения
   {коэф. для показателей (i-2), (i-3), ..., 1 для i-го уравнения: } 
    for j := 2 to i-1 do f[i,j] := 2 * f[i-1,j] - f[i-2,j-2];
    f[i,i] := -f[i-2,i-2] //свободный член
  end;
  for i := 0 to 20 do begin
    write(i:2, ') ');
    for j := 0 to i do write(f[i,j], ' ');
    writeln;
  end
end.

    for j := i downto 0 do write(T[i,j], ' ');