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

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