t1.pl0

来自「pl0编译器,包括词法分析,语法语义分析,以及解释执行」· PL0 代码 · 共 12 行

const a=100;
var x,y; 
procedure abc; 
begin 
  read(x); 
end; 
begin 
  call abc; 
  y:=1+3*2; 
  x:=x+y+a; 
  write(x); 
end.