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

				const a=30,b=4;
				
				var x :integer;
				
				function f(c,d:integer):integer;
				begin
				   if c				then
					f:=c;
				else
					f:=d;
				end;
				begin
				x:=f(a,b);
				write("x=",x);
				end
				.