复件 source.txt

一个Pascal子集语言的编译器

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.