program eukleid;

var a,b:integer;

function gcd2(a,b:integer): integer;
begin
        if a = b then gcd2:=a
        else if a < b then gcd2:=gcd2(a,b-a)
        else gcd2:=gcd2(a-b,b);
end;


function gcd(a,b: integer): integer;
var c:integer;
begin
  while a<>b do
  begin
        if a<b then begin
          c:=a;
          a:=b;
          b:=c;
        end;
        a:= a - b;

  end;
  gcd:= a;
end;

procedure prompt(title: string; var arg:integer);
begin
    write(title, ' ');
    readln(arg);
end;


function nsn(a,b:integer):integer;

begin

        nsn := (a div gcd2(a, b)) * b;
end;

begin
        writeln(nsn(1024, 1024));
end.