Contributor: SWAG SUPPORT TEAM 
{Greatest common divisor}
Program GCD;
Var
 x, y : Integer;
begin
 read(x);
 While x  0 do
 begin
 read(y);
 While x  y do
 if x> y then
 x := x - y
 else
 y := y - x;
 Write(x);
 read(x);
 end;
end.
 




AltStyle によって変換されたページ (->オリジナル)
/