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

Procedure NOD(a,b:integer;var nd:integer);beginwhile ab doif a>b then a:=a-belse b:=b-a;nd:=a;end;var a,b,nd:integer;beginreadln (a);readln (b);NOD(a,b,nd);writeln(nd);
if nd=1 then write(взаимные)else write (не взаимные);end.