PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018
Внимание! Если программа не работает, обновите версию!
function НОД(a, b: integer): integer;
begin
while b > 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
Замечание: числа должны быть неотрицательными