как задать массивы T0 T1 T?
Код

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.

И правильное ли решение?