program PiramidaKwadratow;

var
  i, j: integer;        // Zmienna do iteracji
  x, y: integer;        // Pozycje startowe kwadratów
  kwadratRozmiar, liczbaPoziomow: integer;  // Zmienna dla rozmiaru kwadratu i liczby poziomów

begin
  // Inicjalizacja zmiennych zamiast użycia const
  kwadratRozmiar := 40;  // Rozmiar boku kwadratu
  liczbaPoziomow := 6;   // Liczba poziomów piramidy

  // 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;

  // Czeka na naciśnięcie klawisza (aby zobaczyć rysunek)
  ReadLn;  // Czeka na wciśnięcie klawisza
end.