помогите срочно нужно в паскале:1) Построить
график функции y=cos(x2).  
2) Построить
график функции y= 1/(x2+1). 

1)Program graph1;uses graph;var  gd,gm,error,a,b: integer;   x,y:real;begingd:=detect;initgraph(gd,gm,'');error:=graphresult;if error <> grOk then beginwrite ('Ошибка: ', grapherrormsg(error));readln; halt;end;while(x<=100) do beginy:=cos(x*x);a:=round(x*100);b:=round(y*100);PutPixel(a,b+300,15);x:=x+0.001;end;readln;closegraph;end.closegraph;end.2)Program graph1;uses graph;var  gd,gm,error,a,b: integer;   x,y:real;begingd:=detect;initgraph(gd,gm,'');error:=graphresult;if error <> grOk then beginwrite ('Ошибка: ', grapherrormsg(error));readln; halt;end;while(x<=100) do beginy:=1/(x*x+1);a:=round(x*100);b:=round(y*100);PutPixel(a,b+300,15);x:=x+0.001;end;readln;closegraph;end.