program ya
uses graph;
var r: integer;
begin
readln(r);
circle(300,200,40*a);
end.
радиус вводится в сантиметрах.
