2.txt

来自「pl0」· 文本 代码 · 共 23 行

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,m)
end.