Fatorial
Este script faz o fatorial do número digitado.
Descrição
Este script faz o fatorial do número digitado.
program fatorial;
uses crt;
var
n, x : integer;
r: longint;
begin
Writeln('Digite o numero ');
readln(n);
x:= n;
r:= 1;
while x >= 1 do
begin
r:= r * n ;
x:= x - 1;
n:= n-1;
end;
writeln ('O valor eh',r);
end.