Функция

[Lemo]

Задание:
Найти абсциссу точки пересечения параболы в у= 3x3+20 с прямыми y=0, y=3x-2, y=-2x+1 с точностью Е +0,01.

я вот что то накалякал, но я так понимаю нужно сделать условие при котором все 4-ре игрика = 0 , то вывести Икс, помогите код дописать!

program Console;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  math;

function F1(X: real): real;
begin
  f1:=3*sqr(x)*x+20;

end;

function F2(X: real): real;
begin
  f2 := 0;
end;

function F3(X: real): real;
begin
  f3 := 3*x-2;
end;

function F4(X: real): real;
begin
  f4 :=-(2*x)+1;
end;

var
    x:real;

begin
Write ('x=');
readln(x);
writeln ('1-wa Functiya=', f1(x):6:2);
writeln ('2-wa Functiya=', f2(x):6:2);
writeln ('3-wa Functiya=', f3(x):6:2);
writeln ('4-wa Functiya=', f4(x):6:2);
readln;
end.

[MalexG]

У вас есть кубическая парабола и три прямые. Для решения задачи необходимо уравнение параболы приравнять к к. уравнению прямой:
1. 3*x^3+20=0
2. 3*x^3+20=3*x-2
3. 3*x^3+20=-2x+1
Решив каждое уравнение (найдя X), получите то, что искали.
Значение абсцисс может быть и отрицательным.