niu2.txt

c语言做的pl0编译器

var x,i;
procedure mod;
    x:=x+i;
begin
    i:=1;
    x:=0;
    while i<50 do
        begin
	    write(x);
	    call mod;
	    i:=i+1
	end
end.