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

var a,b,c,x :integer;function NOD(a,b:integer):integer;beginwhile a<>b do  if a>b then    a:=a-b    else b:=b-a;Result:=a;end;beginwrite('Введите a,b,c: ');readln(a,b,c);x:=NOD(NOD(a,b),c);writeln('НОД=',x)end.