test.pas

为编译原理课程设计

:>
123program jcd;
Var x,y, g,m,a,b;
Procedure swap;
Var temp;
begin
	  temp :=x;
      x := y;
      y := temp;
end; 
procedure mod;
  begin
x := x - x/y *y
end;
begin
	read (x,y);
    a:=x;
    b:=y;
call mod;
while x <> 0 do
	  begin
        call swap;
        call mod;
     end;
     g :=y;
     m :=a*b/g;
     write(g,m);
end.