как заполнить весь экран паркетом "ёлочка" с дощекой заданного размера

Вообще-то, зря ты дублировал тему. Это неправильно, некрасиво и наказуемо.
Но я не модератор..
Что-то вроде этого попробуй

repeat 
  x:=x0;
  y:=y0;
  yes:=false;
  while x<MaxX and y<MaxY do begin
    Doska(x,y,a,b);
    Doska(x,y+b,b,a);
    x:=x+a; 
    y:=y+a;
    yes:=true;
  end;
  x0:=x0+a;
  y0:=y0+b-a;
until not yes

Doska - это просто прямоугольник, параметры - левый верхний угол, размер по Х, размер по Y.
В качсетве начальных значений x0 y0 возьми любые отрицательные числа
Я не проверял. Проверь сам.

1. Заголовок темы должен быть информативным В противном случае тема удаляется

+ Дублирование темы

закрыто

Правила форума