FUNKTION pascal(r, c)
    HVIS c == 0 ELLER c == r
        RETURNER 1
    ELLERS
        RETURNER pascal(r - 1, c - 1) + pascal(r - 1, c)
SLUT

FUNKTION setup()
    SÆT vinduestørrelse
    SÆT tekstjustering til CENTER
    SÆT antal rækker i Pascals trekant

    FOR hver række 'r' fra 0 til antal rækker
        FOR hver kolonne 'c' fra 0 til 'r'
            x = beregn X-position for (r, c) baseret på vinduestørrelsen og antal rækker
            y = beregn Y-position for 'r' baseret på rækkehøjde

            værdi = kald pascal(r, c)
            TEGN tekst(værdi, x, y) på skærmen
        SLUT FOR
    SLUT FOR

    STOP tegning for at undgå genopfriskning
SLUT

FUNKTION beregnX(r, c, vinduesbredde, antalRækker)
    // Beregn x-position så Pascals trekant centreret
    RETURNER (vinduesbredde / 2) + (c - r / 2) * afstand mellem værdier

FUNKTION beregnY(r, rækkeHøjde)
    // Beregn y-position baseret på rækkehøjde
    RETURNER startposition + r * rækkeHøjde