Найти наибольший общий делитель чисел A, B, C,

создав функцию для нахождения НОД двух натуральных чисел.

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.

Var a, b, c, d : integer;

function NOD (a, b:integer) : integer;

begin

while ab 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.