Цитата(parlamenter @ 15.12.2014 18:42)

var
  eps:    single;
  Y0, Y1: single;
  Yn, Yn_1, Yn_2: single;
  n:      integer;
begin
  eps := 1e-5;
  Y0  := 10;
  Y1  := 5;

  Yn_2 := Y0;
  Yn_1 := Y1;
  n    := 1;
  repeat
    Yn   := 1 / sqrt(1 + sqr(sin(Yn_1)) + sqr(sin(Yn_2)));
    Yn_2 := Yn_1;
    Yn_1 := Yn;
    Inc(n);
  until Abs(Yn - Yn_2) < eps;
  writeln('n = ', n, ' => Yn = ', Yn: 0: 10);
end.