program Grafik;
uses graph, crt;
const
    h = Pi / 10;
    a = -10;
    b =  10;

var
     gd, gm: integer;
     xx: real;

function SX(x: real): real;
begin
SX := x * sin(x);
end;

begin
initgraph(gd, gm, 'c:\tp\bgi');
xx := a;
line(0, 100, 460, 100);
OutTextXY(190, 102, '0');
line(200, 10, 200, 200);

SetColor(10);
{t.k. koordinati naoborot, to stavim "-"}
moveTo(round(xx * 20) + 200, round(-SX(xx) * 10) + 100);
while xx <= b do
     begin
     xx := xx + h;
     lineto(round(xx * 20) + 200, round(-SX(xx) * 10) + 100);
     end;

readkey;
closegraph;
end.

program krug;
uses graph, crt;
var
     gd, gm: integer;
     s: integer;
begin
initgraph(gd, gm, 'C:\tp\bgi');
s := 20;
while S < 500 do
     begin
     circle(s, 100, 20);
     delay(1000);
     inc(s, 4);
     cleardevice;
     end;

closegraph;
readkey;
end.