program PiramidaKwadratow;
uses GraphABC;

const
  kwadratRozmiar = 40; // Rozmiar boku kwadratu
  liczbaPoziomow = 6;  // Liczba poziomów piramidy

var
  i, j: integer;       // Zmienna do iteracji
  x, y: integer;       // Pozycje startowe kwadratów

begin
  // Oblicz wysokość każdego poziomu
  y := 50; // Początkowy punkt Y

  for i := 1 to liczbaPoziomow do
  begin
    // Początkowy punkt X dla każdego poziomu
    x := (GetMaxX div 2) - (kwadratRozmiar * i div 2); 

    for j := 1 to i do
    begin
      // Rysuj kwadrat
      Rectangle(x, y, x + kwadratRozmiar, y + kwadratRozmiar);

      // Przesuń X do następnej pozycji
      x := x + kwadratRozmiar;
    end;

    // Przesuń Y na następny poziom
    y := y + kwadratRozmiar;
  end;
end.