call3.txt

来自「PL0语言的编译器」· 文本 代码 · 共 21 行

var     x;
procedure  func1;
     var  y;
    begin 
        read(y);
        x:=y;
   end;

procedure  func2;
    var    z;
    begin
         read(z);
        x:=x+z;
    end;
begin
   write(x);
   call func1;
   call func2;
   write(x) 
end.