program pgcdrec;

var a, b : integer;

function pgcd (x, y : integer) : integer ;
begin
        if y=0 then
        pgcd:=x
        else (pgcd(y, (x mod y)));
end;

begin
        writeln('Premier nombre ?');
        readln(a);
        writeln('Deuxième nombre ?');
        readln(b);
        writeln('Le pgd de ',a,' et de ',b,' est ',pgcd(a, b),'')
end.