temp.txt

来自「完成一个完整的编译程序」· 文本 代码 · 共 24 行

procedure swap(x,y);
var i:integer;
begin
  i:=x;
  x:=y;
  y:=i;
end;
program exp;
var a,b:integer;
begin
   a:=2*(5-6)/2;
   b:=5;
 b:=b+1;
 if a>b then
  a:=b;
 else
  b:=a;
while a<10 do
  a:=a+1;
// call swap(a,b); 
write(b);
write(a);
end.