r.txt

用c语言实现类Pacal编译器

program q;
var a,b;
begin 
a:=1;b:=3;
if a=1 then b:=0;
else b:=4;
end.