test.txt

来自「提供complier microscan 的程式檔」· 文本 代码 · 共 24 行

begin A:= BB - 314 + A; end 

begin A:= BB - 314 - C / D * E; end 

begin
  if (A>3) then
     begin B:= 314 + C; end 
  else
     begin B:= 314 - C; end
end 

begin

  m := 1;
  read(n); 
  while (n >= 0) begin
     m := n*m;
     n := n-1;
  end
  write(m);

end