test4.pl

来自「包含“源代码”“文档”“可执行文件（例子）”三个文件夹」· PL 代码 · 共 17 行

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.