procedure TForm1.Button1Click(Sender: TObject);
var
N,x,y,i:integer;
begin
N:=strtoint(edit1.text);
x:=pbx1.width div 2;
y:=pbx1.height div 2;
pbx1.canvas.pen.color:=clblack;
pbx1.Canvas.pen.width:=4;
pbx1.canvas.ellipse(x,y,x+40,y+40);
for i:=1 to N do begin
x:=x+50;
y:=y+50;
end;
Нужно нарисовать N концентрических окружностей. Но у меня не получилось. Подскажите, что не так
var
N,x,y,i:integer;
begin
N:=strtoint(edit1.text);
x:=pbx1.width div 2;
y:=pbx1.height div 2;
pbx1.canvas.pen.color:=clblack;
pbx1.Canvas.pen.width:=4;
pbx1.canvas.ellipse(x,y,x+40,y+40);
for i:=1 to N do begin
x:=x+50;
y:=y+50;
end;
Нужно нарисовать N концентрических окружностей. Но у меня не получилось. Подскажите, что не так