напишите на языке программирования паскаль или си либо в виде блок-схемы алгоритм, определяющий являются ли два числа поданных на вход взаимно простыми. в качестве ответа должно быть слово да или нет

Program n1;var a,b: integer;function NOD(m,n:integer):integer;beginwhile m<>n doif m>n then m:=m-n else n:=n-m;NOD:=m;end;beginreadln(a,b);if NOD(a,b)=1 then write('да')else write('нет');end.