PascalABC.NET
uses GraphABC;
procedure Figure(x,y:integer);
begin
setpenwidth(2);
setbrushcolor(clwhite);
rectangle(x, y, x + 50, y + 50);
setbrushcolor(clrandom);
circle(x, y, 10);
circle(x + 50, y + 50, 10)
end;
var x := 0;
for var i := 1 to ReadInteger('N =') do begin
figure(15 + x, 50);
x += 100;
end.
PascalABC.NET
uses GraphABC;
procedure Figure(x,y:integer);
begin
setpenwidth(2);
setbrushcolor(clwhite);
rectangle(x, y, x + 50, y + 50);
setbrushcolor(clrandom);
circle(x, y, 10);
setbrushcolor(clrandom);
circle(x + 50, y + 50, 10)
end;
begin
var x := 0;
for var i := 1 to ReadInteger('N =') do begin
figure(15 + x, 50);
x += 100;
end;
end.