Напишите программу для вычисления двух значений z1 и z2, результаты должны быть одинаковыми. вводить значения данных с клавиатуры

Program abc;

uses GraphABC;
const
    scale = 20;
    step = 0.001;

var
    x0, y0, x1, y1: integer;
    x, y, min, max, a, b, c: real;

begin
    setwindowsize(1000, 800);
    DrawInBuffer := true;
    //    write(' введите промежуток для функции(min значение-enter- max значение) ');
    //    read(min, max);
    writeln('a=');
    read(a);
    writeln('b=');
    read(b);
    writeln('c=');
    read(c);
    
    x0 := WindowWidth div 2;
    y0 := WindowHeight div 2;
    line(20, y0, WindowWidth - 20, y0);
    line(x0, 20, x0, WindowHeight - 20);
    
    min := trunc((20 - x0) / scale);
    max := trunc((WindowWidth - 20 - x0) / scale);
    
    x := min;
    while x <= max do
    begin
        x1 := trunc(x0 + x * scale);
        
        y := a * x * x * x + b * x * x + c;
        y1 := trunc(y0 - y * scale);
        PutPixel(x1, y1, clGreen);
        
        y := a * x * abs(sin(x));
        y1 := trunc(y0 - y * scale);
        PutPixel(x1, y1, clBlue);
        
        x := x + step;
    end;
end.

Нет решений

Объяснение:

Начинаем идти по алгоритму 15 + 1 = 16, после этого еще раз повторяем это действие так как у нас по алгоритму первая функция идет два раза подряд то есть 16 + 1 = 17 значит умножать на b мы будем число 17. Теперь представим что мы идем с конца а конечное число у нас дано это число 128 и так как последние две функции мы знаем это (+1), значит идем в обратную сторону и вычитаем из конечного числа два раза +1, то есть 128 - 1 - 1 = 126. Теперь мы видим что число 17 и число 126 разделяет один лишь множитель, для того чтобы узнать этот множитель мы делим число 126 на число 17 и получаем множитель он равен 126 / 17 = 7,4. Тут мы видим что нацело число не разделилось и поэтому задача сформулирована неверно либо запись задачи была некорректна. Убедитесь в правильности написания задачи.