Информатика! Срочно паскаль

uses GraphABC;
var x,y,r: integer;
begin
SetPenWidth(3);
SetBrushStyle(bsClear);
for var i:=1 to 100 do
begin
x:=random(600);
y:=random(400);
R:=random(150);
SetPenColor(clRandom);
circle(x,y,r);
end;
end.

задайте в программе толщину отрезка в 3 пикселя