program z1;
    var a, b, maxdel, i:integer;
begin
    writeln('Введите 2 числа через пробел.');
    readln(a, b);
    maxdel := 1;
    for i := 2 to (b) do begin
        if (a mod i = 0) and (b mod i = 0) then begin
            maxdel := i;
        end;
    end;
    if (maxdel = 1) then begin
        writeln('У этих чисел нет общих делителей.');
    end
    else begin
        writeln('Наибольший общий делитель: ', maxdel);
    end;
end.