Напишите логическую функцию которая определяет являются ли два переданные ей числа взаимно простыми, то есть, не имеющими общих делителей, кроме 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.