Составить алгоритм нахождения НОД трех натуральных чисел, используя вспомогательный алгоритм нахождения НОД двух чисел.

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.