test2.pl0

PL/0编译器

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.