Pascal.
Ввести с клавиатуры 2 натуральных числа – N и M. Проверить, являются ли они взаимно простыми (то есть, не имеют общих делителей кроме единицы). В качестве ответа вывести слово YES или NO.

varn,m:integer;beginwrite('N=');readln(n);write('M=');readln(m);while n<>m doif n > m thenn := n - melsem := m-n;if n = 1 then write('YES')elsewrite('NO');end.