f2.txt

C语言的pl/0编译器

const p=5,q=10;
var x,y;
procedure f;
  const i=1,j=2;
  var m,n;
  begin
    read(m,n);
    x:=m+i;
    y:=n*j
  end;
begin
  call f;
  write(x,y);
  if x>p then write(q);
  if q>y then write(p);
  x:=0;
  y:=1;
  while y<=p do
    begin
      x:=x+y;
      y:=y+1
    end;
  write(x)
end.