Uses Graph;
Var gd,gm: Integer;

    begin
    gd:=Detect; InitGraph(gd,gm,");

    For r:=1 To 5 Do Circle(100,100,10*r);
    For r:=1 To 5 Do Circle(80*x,100,30);

    For r:=1 To 5 Do
    For y:=1 To 4 Do
    Circle(80*x, 80*y, 30);

   Reading; CloseGraph;
End.