How to work with Arc by example

How to work with Arc by example

To work with Arc by example

Example:

program Welcome;

uses

Graph;

var

a,b:integer;

radius:integer;

begin

a:=Detect;

initgraph(a,b,'')

if GrapResult<> grOK then Halt(1);

for Radius:=1 to 5 do

Arc(100,100,0,90,Radius*10);

Readln;

CloseGraph;

end.