test.txt

一个子集的词法分析器。输入程序

program example(input, ouput);
var x, y: integer;
function gcd(a, b: integer): integer;
begin
    if b = 0 then gcd := a
    else gcd := gcd(b, a%b)
end;

begin
    read(x, y);
    write(gcd(x, y))
end.