uses GraphABC;
var i,y:integer;
begin
SetWindowSize(300,700);
y:=150;
for i:=1 to 3 do
Circle(150,y,100);
y:=y+200
end
end.
Объяснение:
картинка
