DECLARE Counter : INTEGER DECLARE Triangle : INTEGER Counter ← 1 Triangle ← (1/2)*(Counter)*(Counter + 1) WHILE Triangle < 1000000 Counter ← Counter + 1 Triangle ← (1/2)*(Counter)*(Counter + 1) ENDWHILE OUTPUT Counter-1 WHILE Triangle < 1000000000 Counter ← Counter + 1 Triangle ← (1/2)*(Counter)*(Counter + 1) ENDWHILE OUTPUT Counter-1

FUNCTION HowManyRows(Pins:INTEGER) RETURNS INTEGER DECLARE RemaningPins,Row:INTEGER RemaningPins ← Pins Row ← 0 REPEAT Row ← Row + 1 RemaningPins ← RemaningPins - Row UNTIL RemaningPins <= 0 IF RemaningPins < 0 THEN Row ← Row - 1 ENDIF RETURN Row ENDFUNCTION