какие конфигурации нужно внести в программку из примера 17 .1 для

Какие конфигурации нужно внести в программу из образца 17 .1 для того, чтобы набросок смотрелся последующим образом. Пожалуйста помогите!!!
uses GraphABC;
var x, y, r: integer;
begin
r := 10;
x := 10; y := 10;
while x lt; 640 do
begin
Circle (x, y, r);
x := x + 20;
end;
end.