построить ГРАФИКИ двух функций

[felmor]

построить графики двух функций
Задание:

[Stilet]

Вот первая функция:

uses crt, graph;
var gd,gm:integer;x,y:real;
    c:char;
begin
 clrscr;
 x:=0;
 initgraph(gd,gm,'');
 moveto(100,100);
 repeat
{Вот та функция,для второго графика замениш ее на вторую функцию}
  y:=3*sin(2*pi*x)*cos(pi*x)-sqr(cos(3*pi*x));
{********************************}
  linerel(round(10*x),round(10*y));
  x:=x+0.1;
 until x>=pi;
 readln;
 closegraph;
end.