Даны 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 := a1 end; 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