Вопрос, который вызвал трудности

Напишите логическую функцию которая определяет являются ли два переданные ей числа взаимно простыми, то есть, не имеющими общих делителей, кроме 1. (На языке Паскаль)

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Function IsPrimes(m,n:longint):boolean;
begin
  while m <> n do
    if m > n then m := m - n else n := n - m;
  IsPrimes:=(m=1)
end;
{ пример вызова функции }
var
  a,b:longint;
begin
  Write('Введите пару целых чисел: ');
  Read(a,b);
  if IsPrimes(a,b) then Writeln('Числа взаимно простые')
  else Writeln('Числа не взаимно простые')
end.