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

Огромнейшее спасибо)

Мне блин ещё одну надо решить, поможете?

Вы без "блинов", пожалуйста, соблюдайте культуру общения на Сервисе. А по поводу задач - просто выкладывайте их, а кто и когда решит - видно будет.

По поводу "спасибо" - для этого тут есть синяя кнопочка. Да и размер "спасибо" можно выражать количеством звездочек.

теперь буду знать

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.