uses graphabc;
var x, y, r: integer;
begin
r:=10;
x:=10;
y:=10;
while x<640 do
Drawcircle(x, y, r);
x := x + 15;
end;
end.
Задаём процедуру drawcircle и делаем x+15 вместо 20.
uses graphabc;
var x, y, r: integer;
begin
r:=10;
x:=10;
y:=10;
while x<640 do
begin
Drawcircle(x, y, r);
x := x + 15;
end;
end.
Задаём процедуру drawcircle и делаем x+15 вместо 20.