NEXT PAGE

program Cmmdc;
var n,m,n1,m1,r:integer;
begin
writeln(‘D@ny(CJ)!’);
write(‘n=’);
readln(n);
write(‘m=’);
readln(m);
n1:=n;
m1:=m;
if n<m then
Begin
r:=n;
n:=m;
m:=r;
end;
repeat
r:=n mod m;
n:=m;
m:=r;
until r=0;
writeln(‘cmmdc(‘,n1,’,',m1,’)=’,n);
readln;
end.