Tin học- Lập chương trình

Question

Tìm ƯCLN của m, n ( giá trị của m,n nhập từ bàn phím)

Answer 1

program UCLN;

var          m,n,i:integer;

begin

              write('moi ban nhap m:');readln(m);

              write('moi ban nhap n:');readln(n);

              for i:=n downto 1 do if (m mod i=0) and (n mod i=0) then

              begin

                     write(i);    break;

              end;

              readln;

end.