test2.pl0

来自「PL/0编译器」· PL0 代码 · 共 18 行

const a=10;
var b,c;

procedure p;
  begin
    c:=b*a
  end;

begin
  read(b);
  while b<>0 do
    begin
      call p; 
	write(10+c); 
	read(b)
    end
end.