{
  Programa para o calculo do fatorial utilizando o
  comando while (equivalente 'a versao que utiliza for-to)
}

program fatorial;
var
  fat, n, i: integer;
   
begin  
   writeln ('Fatorial de N');
   write('N: ');
   read (n);

   fat := 1;

   i := 2;
   while i <= n do
   begin
      fat := fat * i;
      i := i + 1;
   end;

   writeln(n, '! = ', fat);
end.