Помогите пожалуйста! По информатике. Срочно!!

Program esep..;
Var x,y:real;
Begin
Writeln('x...');
Read(x);
If x<2 then y:=sqr(x+ln(sin(x))/sqr(x)else
Y:=4x+sqrt(cos(sqr(x)));
Write('y=',y);
Read(x);
End

Но в условии сказано: ПОСТРОИТЬ графики в РАЗНЫХ СИСТЕМАХ координат. Это надо воспользоваться модулем Graph, мало того, необходимо ПОСТРОИТЬ плоскость, а это, извините, уже 3-х мерная графика!!!!