program qq;
<span>uses crt; </span>
<span>procedure NOD_NOK(n1,n2:integer;var a,b:integer); </span>
<span>var m:integer; </span>
<span>begin </span>
<span>if n1>n2 then m:=n1 else m:=n2; </span>
<span>a:=m-1; </span>
<span>repeat </span>
<span>a:=a+1 </span>
<span>until ((a mod n1)=0) and ((a mod n2)=0); </span>
<span>while n1<>n2 do </span>
<span>if n1>n2 then n1:=n1-n2 else n2:=n2-n1; </span>
<span>b:=n1; </span>
<span>end; </span>
<span>var y,x,a,b:integer; </span>
<span>begin </span>
<span>repeat </span>
<span>writeln('Введите 2 натуральных числа:'); </span>
<span>read(x,y); </span>
<span>until(x>0)and(y>0); </span>
<span>NOD_NOK(x,y,a,b); </span>
<span>writeln('NOD(',x,',',y,')=',b); </span>
<span>writeln('NOK(',x,',',y,')=',a); </span>
<span>end.</span>