Чтобы найти наибольший общий делитель постройте программу используя эту формулу: нод (А, B, C) = нод (нод (А, B,), C). (через программу паскаль) program=Evklid

Var a, b, c, x : 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

write ('Введите a, b, c: ');

readln (a, b, c);

x:=NOD (NOD (a, b), c);

writeln ('НОД=', x)

end.