Exercicio 01 prova 03 - TP

01 - Crie um programa que receba um numero inteiro, calcule o seu fatorial em uma function
e mostre o resultado na tela.

Fonte:

program prova03ex01;
uses crt;
function fator(numero:integer):integer;
var cont,valor:integer;
begin
valor:=0;
for cont:=(numero-1) downto 2 do
begin
valor:=valor+(numero*cont);
end;
fator:=valor;
end;
var numero:integer;
begin
clrscr;
write('Informe um numero inteiro...: ');
readln(numero);
writeln;
writeln('Fatorial do numero ',numero,' eh: ',fator(numero));
readln;
end.