Function NOD(A, B: integer): integer;
begin
while (A <> 0) and (B <> 0) do
if A >= B then
A := A mod B
else
B := B mod A;
Result := A + B;
end;
var
A, B, C: integer; begin
write(tri chisla:');
readln(A,B,C);
writeln(NOD(A,NOD(B,C)));
readln;
end.
Не забудь поставить лучший ответ