турбо паскаль

[Hallucinogin]

Помогите пожалуйста сделать блок-схему к задаче, а то у меня это не получается совсем...

Вычислить:
Y= Cos(1+Cos(2+…+Cos(39+Cos40)…))

program recurs;
var
y : real;
function rec_func(idx : integer) : real;
begin
  if idx <>40 then 
      rec_func := idx + cos (rec_func(idx+1))
  else
      rec_func := 40;
end;
begin
     y:= rec_func(0);
writeln (`Otvet = `, y:6:6);
end.

[RUSt88]

функйия создается отдельной блок схемой, сама программа тоде отдельной, должно получиться 2 блоксхемы

могу нарисовать в пайнте за символическое вознаграждение

[Hallucinogin]

поздно((
я здала семместровую без блок-схемы..