Viết chương trình tìm ƯỚC CHUNG LỚN NHẤT VÀ BỘI CHUNG NHỎ NHẤT CỦA HAI SỐ bằng pascal:
var x,y,UCLN,BCNN,t:integer;
begin
readln(x,y) ;
BCNN:=x*y;
t:= y mod x;
While t <> 0 do
Begin
t:= x MOD y;
x:= y;
y:= t;
End;
ucln:=x;
BCNN:=BCNN div UCLN;
write(UCLN,' ',BCNN);
end.