Pascal. ввести с клавиатуры 2 натуральных числа – n и m. проверить, являются ли они взаимно простыми (то есть, не имеют общих делителей кроме единицы). в качестве ответа вывести слово yes или no.

Var
n,m:integer;
begin
write('N=');
readln(n);
write('M=');
readln(m);
while n<>m do
if n > m then
n := n - m
else
m := m-n;
if n = 1 then
write('YES')
else
write('NO');
end.