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

				const a=1.4,b=2.2;
				var x,y,z,m:integer;
				
				begin
				read(x,y,z,m);
				write("x=",x);
				write("y=",y);
				write("z=",z);
				write("m=",m);
				x:=x+y;
				write("x=",x);
				read(x);
				end.