Пожалуйста напишите решение =) (с While)

Question

Пожалуйста напишите решение =) (с While)

---

Answer 1

Uses graphABC;
var x,y,a,b,r:integer;
begin;
maximizewindow;
Setbrushstyle(bsClear);
r:=50;
x:=100;
y:=50;
for b:=1 to 3 do
begin;
while a<>7 do
begin;
a+=1;
circle(x,y,r);
y+=50;
end;
a:=0;
x+=100;
y:=50;
end;
end.

Comments

Спасибо большое) Отмечу как лучшия )