procedure WriteNod(a, b: Integer);
    function Nod(a, b: Integer): Integer;
    begin
        while a <> b do
            if a > b then
                a := a - b
            else
                b := b - a;
        Result := a;
    end;
begin
    Writeln('Нод равен ', Nod(a, b));
end;