Algoritmo para ler um número inteiro positivo e escrever o seu fatorial.

//Faça um algoritmo para ler um número inteiro positivo e escrever o seu fatorial.

program fatorial;

uses crt;

var

n,i,fat:integer;

begin

writeln(' Informe um numero inteiro:');

readln(n);

fat:=n;

for i:=1 to (n -1) do

begin

fat:= fat*i;

end;

writeln('faltorial de ',n,' = ',fat);

readkey;

end.