{* Задача 255 *}

Unit ZADACH255;
Interface
Implementation
Begin
 writeln('Условие: To =1, Tk=To*Tk-1 + T1*Tk-2 +…Tk-2*T1 + Tk-1*T0, k=1, 2,… Получить T10 ');
End.

Program N345;

Uses zadach255.pas; {* Эту строку можно удалить *}
Const {* Предопределенные *}
  cSeqMax = 10;
Type {* Используемые типы *}
  TSeq = Array [0..cSeqMax] Of LongInt;
Var {* Необходимые переменные *}
  t : TSeq;
  k : Byte;
  i : Byte;
Begin
  t [0] := 1;
  For k := 1 To cSeqMax Do {* Увеличиваем k от 1 до cSeqMax с шагом 1 *}
  Begin
    t [k] := 0;
    For i := 0 To k - 1 Do {* Увеличиваем i от 0 до k с шагом 1 *}
      t [k] := t [k] + t [i] * t [k - i - 1];
  End;
  writeln ('t (10) = ', t [10]);
End;
  writeln ('t (10) = ', t [10]);
  End...