niu4.pl

c语言做的pl0编译器

var b,c;
const a=15;
procedure p;
begin 
     c:=a+b;
end;
begin
    read(b);
    while b>=0 do
    begin
       call p;write(2*c);read(b)
    end
end.