program sum;
{$APPTYPE CONSOLE}
uses SysUtils;
var r, m, n: integer;
begin
    write('GCD Program. Please Enter m: ');
    readln(m);
    write('Please Enter n: ');
    readln(n);
    r := m mod n;
    while r > 0 do begin
        m := n;
        n := r;
        r := m mod n;
    end;
    writeln('GCD = ', n:8);
    readln
end.