test1.pl0

PL/0编译器

var a,b,x,y,g,m;

procedure swap;
var temp;
begin
	temp := x;
	x := y;
	y := temp
end;

procedure mod;
	x := x-x/y*y;

begin
	read(a,b);
	x := a;
	y := b;
	call mod;
	repeat
	begin
		call swap;
		call mod
	end
	until x = 0;

	g:=y;
	m:=a*b/g;
	write(g,m)
end.