[Pascal] График Синуса

[midletarket]

Помогите пожалуйста написать программу построения графика синуса по заданному углу.

Program Sinus;
Uses Crt, Graph;
var drv,mode,x,y,xx,yy:integer;
ugol:real;
    begin
    drv:=detect;
    InitGraph(drv,mode,'C:\tp7\BGI');
x:=GetMaxX;
y:=GetMaxY;
xx:=x div 2;
yy:=y div 2;
setcolor(15);
moveto(0,yy);
lineto(0,x);
moveto(xx,0);
lineto(xx,y);
moveto(xx,0);
lineto(xx-3,3);
moveto(xx,0);
lineto(xx+3,3);
moveto(x,yy);
lineto(x-3,yy-3);
moveto(x,yy);
lineto(x-3,yy+3);{Ось}
readln(ugol);

То есть координаты начала x0:=xx; y0:=yy.

[Stilet]

Вот если бы ты поскреб по сусекам то увидел бы:
http://www.programmersforum.ru/showthread.php?t=3372