{給出一個錯誤的程序，測試是否能夠檢查出來，
 并給出錯誤 提示信息}

program _error
var integer s;
    integer t;
procedure factor(intaeger n;var integer m);
var integer w;
begin
if n=0
then m:=1
else 
  factor(n-1,w);
  m:=n*w
fi
end
begin
read(s);
factor(s,t);
write(t)
end.