Dựa vào mã code bên dưới, hãy viết chương trình tìm ước số chung lớn nhất của 2 số nguyên nhập từ bàn phím vào

Program KT1tiet2_2;
   Uses crt;
   Var a,b,i,UCLN,BCNN:integer;
Begin
Clrscr;
writeln ('nhap2sovao');
readln (a,b);
BCNN:=a*b;
writeln ('uocchung2sola');
i:=1;
while i<=a do 
Begin
If (a mod i=0) and (b mod i=0) then
Begin
UCLN:=i;
dem:=dem+1;
write (i:4);
end;
i:=i+1;
end;
writeln ( );
writeln ('uocchunglonnhatsola',UCLN);
BCNN:=BCNN div UCLN;
writeln ('boichungnhonhatsola',BCNN);
writeln ('souocchungcuaca2sola:', dem);
readln 
end.
Dựa vào mã code trên:
1) Viết chương trình tìm ước số chung lớn nhất của 2 số nguyên nhập từ bàn phím vào.
2) Viết chường trình tìm bội chung nhỏ nhất của 2 số nguyên nhập từ bàn phím vào.