gcd2.pl

来自「Win32 Console下C++实现的PL/0语言编译程序」· PL 代码 · 共 25 行

const a=45,b=27;
var x,y,g,m;
procedure swap;
var temp;
begin
  temp:=x;
  x:=y;
  y:=temp;
end;
procedure mod;
  x:=x-x/y*y;
begin
  x:=a;
  y:=b;
  call mod;
  while x#0 do
  begin
    call swap;
    call mod;
  end;
g:=y;
m:=a*b/g;
write(g);
write(m);
end.