Набрать и отладить программу нахождения наибольшего общего делителя и протестировать ее на следующих исходных данных на Pascal: а) a=40 b=64...

Конечно, я могу помочь с написанием программы нахождения наибольшего общего делителя (НОД) на языке Pascal. Вот пример программы:

program GCD;

function FindGCD(a, b: Integer): Integer;
var
  temp: Integer;
begin
  while b <> 0 do
  begin
    temp := b;
    b := a mod b;
    a := temp;
  end;
  FindGCD := a;
end;

var
  a, b: Integer;
begin
  // Примеры исходных данных
  a := 40;
  b := 64;
  writeln('НОД(', a, ', ', b, ') = ', FindGCD(a, b));

  a := 32;
  b := 16;
  writeln('НОД(', a, ', ', b, ') = ', FindGCD(a, b));

  a := 12;
  b := 20;
  writeln('НОД(', a, ',...