gcd.txt

第一次写的

program gcd;
var x,y,rem
begin
read(x);
read(y);
while rem<>0 do
begin
rem:=x-y*(x/y);
x:=y;
y:=rem
end;
write(x)
end