Pascal: Factorials

program ex24;
{$APPTYPE CONSOLE}
var myvalue: integer;

function factorial(n:integer):integer;
var i,f:integer;
begin
 f:=1;
 for i := 1 to n do
 f:= f* i;
 factorial:=f;
end;

begin
 writeln('Enter a number to find its factorial');
 readln(myvalue);
 writeln(factorial(myvalue));
 readln;
end.

Back to questions