Составьте программу нахождения наибольшего общего делителя трех чисел, используя следующую формулу: нод(а, b, с) = нод(нод(a, в), с). используя алгоритм евклида.

Function nod(a, b: longint): longint; begin   while a < > b do       if a > b then a : = a - b       else b : = b - a;   nod : = a end; var   a, b, c: longint; begin   write('введите три натуральных числа: '); readln(a, b, c);   writeln('нод=', nod(nod(a, b), c)) end. тестовое решение: введите три натуральных числа: 256 48 24 нод=8

телефон      |         зонтик

наушник       |       спица

корпус         |       стержень

диск             |       купол

микрофон   |       рукоятка

провод         |       рубка

             

используется язык pascal

program pr;

var

  mas: array[1..7] of integer;

  i: integer;

begin

writeln('вводим значения в массив');

  for i: =1 to 7 do readln (mas[i]);

writeln('выводим значения из массива');

  for i: =7 downto 1 do writeln(mas[i]);

readln;

end;