复件 source.txt

来自「一个Pascal子集语言的编译器」· 文本 代码 · 共 12 行

program example(input,output);
var x,y:integer;
function gcd(a,b:integer):integer;
begin 
  if b=0 then gcd:=a
  else gcd:=gcd(b,a mod b)
end;
begin
  read(x,y);
  write(gcd(x,y))
end.