Рекурсия. ПаскальABC. Составить программу для определения значения функции, заданной указанным соотношением.

спасибо большое, у вас там ошибочка, нужно не умножить, а прибавить, но это опечатка)

Спасибо, я уже сам заметил и попрвил

function f(x:integer):integer;begin  if abs(x+1)<=1 then f:=4  else f:=-2*sqr(x)+sqr(f(x-1))end;

Function F(x : Real) : Real;Begin If abs(x+1)>1 then F:=-2*sqr(x)+sqr(f(x-1)) else F:=4;end;Var a : Real;Begin Readln(a); Writeln(F(a));end.