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

Procedure NOD(a,b:integer;var nd:integer);beginwhile a<>b 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.