Question

Очень срочно 2-ой номер, сделайте пожалуйста

Answer 1

Function HOD(a: integer; b: integer): integer;
// Нахождение НОД
var
  i: integer;
begin
  while b <> 0 do
  begin
    a := a mod b;
    i := b; b := a; a := i
  end;
  HOD := a
end;

var
  A, B, C: integer;

begin
  Write('Введите через пробел значения A,B,C: '); Readln(A, B, C);
  Writeln('НОД(A,B,C)=', HOD(HOD(A, B), C))
end.

Тестовое решение:
Введите через пробел значения A,B,C: 1532 628 388
НОД(A,B,C)=4