Question

помогите пожалуйста
даю 31 бал

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

function NOD(var a,b:integer):integer;
begin
  if a>b then a:=a-b
  else
    if b>a then b:=b-a;
  if a=b then Result:=b
  else Result:=NOD(a,b)
end;

begin
  var (a,b):=(21,14);
  Writeln(NOD(a,b))
end.

Алгоритм Евклида работает только для натуральных чисел!