giup mik vs ạ pascal nhé

*ý tưởng: tìm bội chung chỏ nhất từ `1->n` cho đến khi tìm dc số lớn nhất mà bé hơn hoặc bằng 'm'

uses crt;
var n,m,i,bc:longint;

function gcd(a,b:longint):longint;
begin
 if b=0 then exit(a)
 else exit(gcd(b,a mod b));
end;

function lcm(a,b:longint):longint;
begin
exit((a*b) div gcd(a,b));
end;

begin
assign(input,'PHAOHOA.inp');
reset(input);
assign(output,'PHAOHOA.out');
rewrite(output);
readln(n,m);
bc:=1;
for i:=2 to n do
 if lcm(bc,i)<m then
  bc:=lcm(bc,i)
 else
  break;
write(bc);
end.