Даны n чисел. Определить являются  ли они взаимно простыми т.е имеют общий делитель отличный от единицы 

var  a, b, i: integer;  bool: boolean;begin  readln(a, b);  for i := 2 to min(a, b) do    if ((a mod i = 0) and (b mod i = 0)) then      bool := true;  if (bool) then    writeln('No')  else    writeln('yes');end.

function gcd(a: integer; b: integer): integer;// Нахождение НОДvar  i, a1, b1: integer;begin  a1 := a; b1 := b;  while b1 <> 0 do   begin    a1 := a1 mod b1;    i := b1; b1 := a1; a1 := i  end;  result := a1end;var  m, n, k: integer;begin  writeln('Введите пару целых чисел');  readln(m, n);  k := gcd(m, n);  if k = 1 then writeln('Числа взаимно простые')   else writeln('Числа не являются взаимно простыми, НОД=', k)end.Тестовое решение:Введите пару целых чисел465 532Числа взаимно простыеВведите пару целых чисел13440 6930Числа не являются взаимно простыми, НОД=210