PL/0源程序//PL0.txtconsta=10;varb,c;procedurep;beginc:=b+aend;beginread(b);whileb#0dobegincallp;write(2*c);read(b)endend.//outputfile.txtconstsym,ident,aeql,number,10semicolon,varsym,ident,bcomma,ident,csemicolon,proceduresym,ident,psemicolon,beginsym,ident,cbecomes,ident,bplus,ident,aen