Fatorial

{Faca um programa que le um valor N inteiro e positivo e que calcula e
 escreve o fatorial de N.}

Uses CRT;
Var
   ValorN, Cont, Fat: Integer;
Begin
   Cont := 1;
   Fat  := 1;
   Clrscr;
   Writeln('Digite um numero: ');
   Read(ValorN);
   While Cont <= ValorN Do
       Begin
          Fat  := Fat * Cont;
          Cont := Cont + 1;
       End;
   Writeln('O Fatorial do numero ', ValorN, ' ‚: ', Fat);
   Readkey;
End.