Fatorial

program fatorial;
var N, cont, fat: integer;
begin
  write('Digite um número inteiro: ');
	readln(N);
	write(N,'! = ');
	fat:=1;
	for cont:=N downto 1 do
	  begin
	    fat:=fat*cont;
	    if cont = 1 then write(cont)
			else write(cont,'*');
		end;
	write(' = ',fat);
end.