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

Var a,b,c,x :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
write('Введите a,b,c: ');
readln(a,b,c);
x:=NOD(NOD(a,b),c);
writeln('НОД=',x)
end.