example2.pl0

这个是我用mfc写的一个pl0的编译器

const a=10;
var b,c;
procedure p;
begin 
c:=b+a
end;
begin
read(b);
while b#0 do
begin
call p;
write(2*c);
read(b)
end
end.