Bội nhỏ nhất của n mình tính là số đó lun được ko??
var n,i,d:longint;
a:array[1..100]of longint;
begin
write('nhap n');read(n);
i:=n-1;
while d<>4 do
begin
i:=i+1;
if i mod n=0 then
begin
d:=d+1;
a[d]:=i;
end;
end;
writeln('4 boi so nho nhat cua ',n,' la : ');
for d:=1 to 4 do writeln(a[d]);
readln;
end.