Построить в одной системе координат график функций y = ax3+bx2+c, y=ax|sinx| на заданном промежутке. промежуток и параметры для каждой функции вводятся пользователем. , напишите программу( или хотя бы объясните, что делать после write(' введите промежуток');

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.

// pascalabc.net 3.3, сборка 1576 от 16.11.2017 // внимание! если программа не работает, обновите версию! begin var a: = readlnstring('введите массив').tointegers; writeln('максимальное значение: ', a.max); writeln('минимальное значение: ', a.min); end.