a:= abs(a);b:=abs(b);while a b dobeginif a > b then a:=a-b;if b > a then b:= b- a;end;UCLN:= a;End;BEGINWrite(‘x,y:’);Readln(x,y);Write(‘BCNN cua’, x, ‘va’, ‘y:’, (x*y) div UCLN(x,y));ReadlnEND.Bài tập tương tự:1. Viêt chương trình tìm ư c chung l n nhất c a 2 số nguyên dương.IV. KẾT Q[r]