9.3.. Napisati program sa funkcijom za izračunavanje faktorije prirodnog broja.

Listing programa:

PROGRAM 09311016;
{fun04p, faktorijel prirodnog broja}
USES
  WinCrt;
VAR
  n, m: Integer;
  c : Real;
FUNCTION fact(a:Integer):Real;
VAR
  i: Integer;
  p: Real;
BEGIN
  p := 1;
  FOR i:= 1 TO n DO
    p := p * i;
  fact := p;
END;

BEGIN       {MAIN}
  Writeln ('Faktorijel broja ');
  Write('n ');
  Readln(n);
  c := fact (n);
  writeln('faktorijl  = ', c );
END.

Index