test.pas

现将本人搜集常用的程序设计语言的词法和形式文法提供给大家。其中

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
        readln (x, y);   
        writeln (gcd(x, y))
end.