ceshi1.pl0

来自「是用flex分析pl0源代码的程序」· PL0 代码 · 共 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.