program funktsiooni_graafik;
uses graph;

{function f(x: real): real;
begin
f:=sin(0.1*x);
end;}

var d, m, y, vx, vy, ux, uy:integer;
x: real;
begin
d:=detect ; Initgraph(d, m, '');
vx:=round(x+10); vy:=250-round(200*sin(0.1*x));
while (x<700) do
begin
 ux:=round(x+10); uy:=235-round(200*sin(0.1*x));
 line(vx, vy, ux, uy);
 vx:=ux; vy:=uy;
 x:=x+0.1;
end;
 readln;
 closegraph;
end.