BCNN:program BCet;
uses crt;
var a,b :integer; BC :longint; BCNN :longint;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
BC:=a*b;
While a <> b do
if a>b then a:=a-b else b:=b-a;
BCNN:=BC div a;
writeln(BCNN);
readln;
end.
UCLN:
program Bai_5_WhileDo_UCLN;
uses crt;
var a,b,r,a1,a2 :int64;
begin
clrscr;
a1:=a;
a2:=b;
write('Nhap a: ');readln(a);
write('Nhap b: ');readln(b);
r:= a MOD b;
While r <> 0 do
begin
a:=b;
b:=r;
r:=a MOD b;
end;
write('UCLN(',a1,',',a2,')= ',b);
readln;
end.