Найти наибольший общий делитель чисел A, B, C, создав функцию для нахождения НОД двух...

Question

Найти наибольший общий делитель чисел A, B, C,
создав функцию для нахождения НОД двух натуральных чисел.

Answer 1

Program NOD(output);
function nod (a1, a2: integer): integer;
begin
nod:=abs (a1 mod a2);
writeln(#7);
nod (a1, a2);
end;
var a, b, c, d: integer;
begin
readln (a, b, c);
d:=nod(nod(a, b), c);
writeln(d);
readln;
end.

Answer 2

Var a,b,c,d :integer;

function NOD(a,b:integer):integer;
begin
while a<>b do
  if a>b then
  a:=a-b
  else b:=b-a;
result:=a;
end;

begin
writeln('Введите а, b, c');
readln(a,b,c);
d:=NOD(a,b);
d:=NOD(d,c);
writeln('НОД = ',d);
end.