Странная задача

[ARF_name]

Помогите пожалуйста с задачей

[Stilet]

Ну, насколько я понял то так:

const m=10;
var i:integer; a:array[1..m] of real;x:real;
 function f(x:real):real; begin f:=sin(x-2); end;
begin
 x:=0;
 a[1]:=f(x);
 write(a[i]);
 for i:=2 to m do begin
  a[i]:=f(a[i-1]);
  write(a[i]);
 end;
end.