Uses Graph, CRT;
VAR
 i,j:INTEGER;
 S:String;
 x,y:Real;

BEGIN
 InitGraph(<параметры задайте сами>);
 Line(40,420,640,420);
 Line(40,420,40,20);
 SetTextStyle(DefaultFont,HorizDir,1);
 SetTextJustify(CenterText,TopText);
 OutTextXY(40,430,'0');
 FOR i:=1 TO 5 DO
  begin
   Line(40+i*100,420,40+i*100,410);
   Str(i/2:3:1,S);
   OutTextXY(40+i*100,430,S+'*Pi');
  end;

 SetTextJustify(RightText,CenterText);
 FOR i:=0 TO 10 DO
  begin
   Line(40,420-i*40,50,420-i*40);
   Str(0.1*i:3:1,S);
   OutTextXY(35,420-i*40,S);
  end;

 SetLineStyle(SolidLn,0,ThickWidth);
 MoveTo(40,420);
 x:=0;
 For i:=1 to 600 do
  begin
   x:=x+Pi/200;
   y:=SQR(Sin(x));
   LineTo(40+Round(x*200/Pi),Round(420-y*400));
  end;
 ReadKey;
 CloseGraph;
END.