Даны 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.