Ага, ща, ещё в праздники не работали... И без твоих задач плохо. Хоть язык бы указал для начала... На вот. Чёт типа этого: function f(x:real):real; begin if (x = 0)or(x < 4) then Result := Sqr(x) else if x<= -4 then Result := 0 else Result := 4; end;