www.pudn.com > WordParser.rar > 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.