easy.txt

来自「snl语言是一个简单的具有嵌套过程定义的过程式语言」· 文本 代码 · 共 24 行

{简单的过程调用，测试变参的传递}
program pp
var   integer  v1;
char  c;

procedure f();
begin
    v1 :=2
end

procedure t1();
var  integer v1;
begin
    v1 :=1
end

begin
  read(v1);
  t1();
  write(v1);
  f();
  write(v1)
end.