❔ PASCAL While Statement

PROCEDURE DisplayBFTable(minA, maxA: INTEGER; VAR result: INTEGER);
VAR
    bRange: INTEGER;
BEGIN
    bRange:= 0;
    WHILE minA <= maxA DO BEGIN
        WHILE bRange <= bTable DO BEGIN
            result:= Binomial(minA,bRange);
            WriteLn('Ergibt: ', result);
            bRange:= bRange + 1;
        END;
        minA:= minA + 1;
    END;
END;

PROCEDURE DisplayBFTable(minA, maxA: INTEGER; VAR result: INTEGER);
VAR
    bRange: INTEGER;
BEGIN
    bRange:= 0;
    WHILE minA <= maxA DO BEGIN
        WHILE bRange <= bTable DO BEGIN
            result:= Binomial(minA,bRange);
            WriteLn('Ergibt: ', result);
            bRange:= bRange + 1;
        END;
        minA:= minA + 1;
    END;
END;