Free Pascal画圆形的程序

circle(x,y,r);
和TP一样.

Program ex1;
Uses graph;
Var Gm,Gd,R :integer;
Begin
Gd:=0;
Write('Please enter the radius:');readln(R);
Initgraph(Gm,Gd,' ');
Circle(320,240,R);
Readln;
Closegraph;
End.

uses crt；
uses graph；
Var x，y，R:integer;
Begin
x：=0； y：=0；
readln(R);{输入半径}
Initgraph(x,y,' ');
Circle(320,240,R); {x，y：横竖坐标}
Readln;
Closegraph;
End.

你直接给我分啊