Графики в PaskalABC

[Солнышконанебе]

Построить графики функций y=cosx, y=x-10.
Второй график получился, а как нарисовать y=cosx? Помогите, пожалуйста!

Код:

uses GraphABC;

var
x,y:real;
begin
SetCoordinateOrigin(100,150);
line(0,-100,0,300);
line(-70,0,500,0);
setFontSize(16);
setfontstyle(fsItalic);
textout(-15,2,'0');
setFontSize(13);
line(25,5,25,-5);
line(-5,-25,5,-25);
textout(22,2,'1');
textout(-15,-35,'1');
line(0,250,250,0);
line(-75,325,375,-125);
line(-5,250,5,250);
line(250,-5,250,5);
end.

[BDA]

uses GraphABC;

var
x,y:real;
i:integer;
begin
SetCoordinateOrigin(100,150);
line(0,-100,0,300);
line(-70,0,500,0);
setFontSize(16);
setfontstyle(fsItalic);
textout(-15,2,'0');
setFontSize(13);
line(25,5,25,-5); //1 on Ox
line(-5,-25,5,-25); //1 on Oy
textout(22,2,'1');
textout(-15,-35,'1');
line(0,250,250,0);
line(-75,325,375,-125);
line(-5,250,5,250);
line(250,-5,250,5);
moveto(-75,-round(25*cos(-3)));
for i:=-74 to 500 do
lineto(i,-round(25*cos(i/25)));
end.

[Солнышконанебе]

Спасибо большое!!!