Цикл Repeat.until

uses graphABC;
var d,x,y:integer;
begin
setwindowsize(500,500);
centerwindow;
d:=20;
y:=d;
while y<=windowheight-d do
 begin
  x:=d+10;
  while x<=windowwidth-d do
   begin
    circle(x,y,10);
    x:=x+d+10;
   end;
  y:=y+d+10;
 end;
end.

uses graphABC;
var
  x,y: integer;
begin
  y := 20; // от края слева
  repeat // цикл распечатывания окружностей по высоте
    x := 20; // от края справа
    repeat // цикл распечатывания окружностей по ширине
      Circle(x,y,10); // печатает окружность с координатами x,y,R(радиус)
      x := x + 30; // по линии x между центрами
    until (x >= 640); // выход из цикла пока х >= 640 (печатает на всю ширину)
    y := y + 30; // по линии x между центрами
until (y >= 460); // выход из цикла пока н >= 460 (печатает на всю высоту)
end.

uses graphABC;
var d,x,y:integer;
begin
setwindowsize(500,500);
centerwindow;
d:=20;
y:=d;
repeat
x:=d+10;
repeat
circle(x,y,10);
x:=x+d+10;
until x>=windowwidth-d;
y:=y+d+10;
until y>=windowheight-d;
end.