消防水箱安装:关于pascal语言