testin.pl0

来自「PL0_CPP C++版本的PL0 语言的编译器」· PL0 代码 · 共 21 行

const a=25,b=10;
var x,y;

  procedure aa;
  var  a1,b1;
  begin
    a1:=a;
    b1:=b;
    x:=a1+b1;
  end;

begin
  x:=10;
  call aa;
  y:=x*12;
end.