test.pas

来自「现将本人搜集常用的程序设计语言的词法和形式文法提供给大家。其中」· PAS 代码 · 共 15 行

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.