Ввести с клавиатуры 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.