Program Faktorial

program faktorial;

uses wincrt;

var

   n,i:longint;

   f:real;

begin

     readln(n); f:=1;i:=0;

     if(n=0)then   

     writeln(1)

     else

     writeln(2);

     repeat

     i:=i+1;

     f:=f*i;

     until i=n;

     writeln(n,'factorial',f);

     end.