test3.pl0

pl0的几个小程序 老师给的 很简单 共享下

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.