test3.pl0

来自「pl0的几个小程序 老师给的 很简单 共享下」· PL0 代码 · 共 14 行

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