Ковёр Серпинского: Подобрать координаты, чтобы закрашивались квадраты зелёным цветом - Pascal

Формулировка задачи:

Помогите пожалуйста в предпредпоследней строчке,подобрать правильно координаты чтоб закрашивались квадраты зелёным цветом,а то у меня вообще не закрашивается

uses
  GraphABC;
 var n: integer;
procedure kv(x1, y1, x2, y2, n: integer);
var x3, y3, x4, y4: integer;
begin
  If n > 0 then
  begin
    x3 := (x2 - x1)div 3 + x1;  y3 := (y2 - y1) div 3 + y1;
    x4 := 2*((x2 - x1) div 3) + x1; y4 := 2*((y2 - y1) div 3) + y1;
  MoveTo(x3, y3);
    LineTo(x4, y3);
    LineTo(x4, y4);
    LineTo(x3, y4);
    LineTo(x3, y3);
    floodfill(x3,y4, clwhite);
    setbrushcolor(clwhite);
    kv(x1, y1, x3, y3, n - 1);
    kv(x3, y1, x4, y3, n - 1);
    kv(x4, y1, x2, y3, n - 1);
    kv(x4, y3, x2, y4, n - 1);
    kv(x4, y4, x2, y2, n - 1);
    kv(x3, y4, x4, y2, n - 1);
    kv(x1, y4, x3, y2, n - 1);
    kv(x1, y3, x3, y4, n - 1);
  end;
end;
 
begin
  write('n=');  readln(n);
  
   MoveTo(20, 20);
  LineTo(460, 20);
  LineTo(460, 460);
  LineTo(20, 460);
  LineTo(20, 20);
 FloodFill(20,460, clgreen); 
  kv(20, 20, 460, 460, n);
end.

Решение задачи: «Ковёр Серпинского: Подобрать координаты, чтобы закрашивались квадраты зелёным цветом»

Листинг программы

floodfill(x3+1,y4-1, clgreen);

Объяснение кода листинга программы

Список действий в коде, который вы предоставили, выглядит следующим образом:

Вызывается функция floodfill.
В качестве аргументов функции передаются координаты x3+1, y4-1.
В качестве цвета, которым необходимо закрасить квадрат, используется clgreen.