tui làm r nhưng mà dài dòng quá , giúp ạ , mình đã học các câu lệnh kiến thức cơ bản và ctrinh con rồi nhé

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

uses crt;
var a, b, uc : longint;
  function min(a,b:longint):longint;
     begin
    if a > b then exit(a)
        else exit(b);
     end ;
  function ucln(a,b:longint):longint;
        var i : longint;
     begin
    for i := min(a,b) downto 2 do 
        if (a mod i = 0) and (b mod i = 0 )
            then exit(i);
    exit(1);
     end ;
  function bcnn(a,b:longint):longint;
     begin
    exit(a*b div ucln(a,b));
     end ;
begin 
clrscr;
    readln(a,b);
    uc := ucln(a,b);
    writeln(bcnn(4,12));
    writeln(a div uc,' ', b div uc );
end .

Var a,b,c: longint;
/////
function UCLN( a,b: longint): longint;
begin
    if b = 0 then exit(a);
    if a mod b= 0 then exit(b)
    else exit(UCLN(b,a mod b));
end;
//////
begin
    read(a,b); 
    c:= UCLN(a,b);
    writeln(a*b div c);
    writeln(a div c,' ',b div c);
end.