代码如下：
program demo3;var name:string;
Procedure hello(var name:string);begin writeln('Hello:'+name); readln;end;
begin writeln('enter you name:'); readln(name); hello(name);end.
然后我们打开freepascal在线编译，如图，找到我们用记事本保存的文件，点击上传。
这时就可以保存了
然后点击运行
果然可以运行

楼主nb

wikioi.com 都有云IDE 直接在线测试
另你没看吧里其他贴么。360。

碉堡我擦