[AND_REY]

Вроде всё просто, может где ошибся токо проснулся.
Ввод Ki и вывод Yi допишиш.

Код:

Uses Math;

Function Factor(i: Integer): Integer;
begin
 if i > 1 Then Factor:= i*Factor(i-1)
          Else Factor:= 1;
end;

procedure Formyla;
Var
 Y, K: Array [1..10] of Real;
 i,a: Integer;
 v,n,SumKi: Real;
begin
 SumKi:= 0;
 For i:= 1 To 10 Do SumKi:= SumKi + K[i];
 For i:= 1 To 10 Do
  Begin
   a:= i-1;
   if a < 1 Then a:= 1;
   v:= Power(K[i],2) + Power(K[a],5);
   n:= Tan(SumKi);
   Y[i]:= (Power(v, 1/3)/n) + Factor(i);
  end;
end;