begin var i; var f; var n;
      n:=10; i:=1; f:=1;
      if n > 0 then
         while i <= n do
            f:=f*i; write i; write f; i:=i+1
         od
      else f:=0
      fi
end