BALGOL

Sources mentioning this language

Related languages

LLM-contributed programs

BEGIN
  INTEGER PROCEDURE FACTORIAL(N);
    VALUE N;
    INTEGER N;
  BEGIN
    INTEGER I, RESULT;
    RESULT := 1;
    FOR I := 1 STEP 1 UNTIL N DO
      RESULT := RESULT * I;
    FACTORIAL := RESULT
  END FACTORIAL;

  INTEGER N, F;
  READ(N);
  F := FACTORIAL(N);
  WRITE(F)
END

Real programs from Software Heritage

No SWH evidence indexed yet for this language. (Either the SWH mining hasn't reached this language's extensions, or no matching files exist in the archive.)

Contribute — propose a file extension