Составьте программу нахождения наибольшего общего делителя трех чисел, используя следующую формулу: НОД(А, B, С) = НОД(НОД(A,

Program zz1; Var a,b,c:integer; // задаем переменные целого типаFunction Nod(a,b:integer):integer; // вспомогательный алгоритмBegin While a<>b do // организуем цикл, используем алгоритм Евклида if a>b // проверяем условие, если первое число больше второго then a:=a-b // то, от первого отнимаем второе else b:=b-a; // иначе, от второго отнимаем первое Nod:=a; // в связи с тем, что по окончании цикла два числа сравняются, ответом является любое из нихEnd;begin write(\' Введите три числа \'); // вводим с клавиатуры три заданных числа readln(a,b,c); writeln(\' НОД трех чисел = \', Nod(Nod(a,b),c));end.