error9.txt

用VC写的扩充的pl0文法编译器

const a=4.4;
var x:integer;

procedure add(var x,y:integer) ;
var sum;
begin
sum:=x+y;
add:=sum
end

x:=add(2,4);
.