read.txt

用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.