# Factorial in Pascal

Published on 05 October 2023 (Updated: 05 October 2023)

Welcome to the Factorial in Pascal page! Here, you'll find the source code for this program as well as a description of how the program works.

## Current Solution

``````program factorial_calculate(input, output, stdErr);
(* Read a number from Commandline, Return it's factorial value
Cardinal, int-64 and qWord are the relevant data type to store long int in pascal.
With Cardinal data type, maximum factorial that can be computed is 34, 4926277576697053184
With int-64   data type, maximum factorial that can be computed is 44, 2673996885588443136
With qWord    data type, maximum factorial that can be computed is 65, 9223372036854775808
*)
var
buf: String;
(* input_value, factorial, check:qWord;*)
i, check: integer;
input_value, factorial_value: qWord;
begin
buf:= paramStr(1);
Val(buf, input_value, check);
if check <> 0
then
writeln('Usage: please input a non-negative integer')
else
if input_value < 0
then
writeln('Usage: please input a non-negative integer')
else
begin
if (input_value = 0) then
writeln('1')
else
begin
factorial_value := 1;
for i := 1 to input_value do
begin
factorial_value := factorial_value * i;
end;
writeln(factorial_value);
end;

end;
end.

``````

Factorial in Pascal was written by:

• Mr Anand Somashekhara Rao Somavarapete

If you see anything you'd like to change or update, please consider contributing.

## How to Implement the Solution

No 'How to Implement the Solution' section available. Please consider contributing.

## How to Run the Solution

No 'How to Run the Solution' section available. Please consider contributing.