составьте программку нахождения наивеличайшего общего делителя 3-х чисел, используя формулу:

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программка не работает, обновите версию!

function НОД(a, b: integer): integer;

begin

 while b gt; 0 do

   (a, b) := (b, a mod b);

 Result := a

end;

begin

 var (a, b, c) := ReadInteger3;

 НОД(НОД(a, b), c).Println

end.

78 294 570

6

Замечание: числа должны быть неотрицательными