var a,b:integer; begin write ('a=');readln(a); write ('b=');readln(b); while (a<>0) and (b<>0) do begin if a>b then a:=a mod b else b:=b mod a; end; writeln('NOD=',a+b); readln end. Uses Dos; Var h,m,s,ss: word; begin gettime(h,m,s,ss); end.