niu4.pl

来自「c语言做的pl0编译器」· PL 代码 · 共 13 行

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.