Uses Graph,Crt;

Const
 Total=2*PI;             {Хочешь больше периодов - измени}

Var
 r,m,i:Integer;
 Zero:Integer;
 Scale:Double;

Begin
 r:=Detect;
 InitGraph(r,m,'C:\BP\BGI'); {ИСПРАВЬ НА ТОТ ПУТЬ, КОТОРЫЙ
                                           СООТВЕТСТВУЕТ ПАПКЕ BGI НА ТВОЁМ КОМПЕ}
 Zero:=Round(GetMaxY/2);
 MoveTo(0,Zero);
 Scale:=Total/GetMaxX;
 For i:=1 To GetMaxY Do
   LineTo(i,Round(Zero-Sin(i*Scale)/Scale));
 ReadKey
 RestoreCRTMode
End.