var i,n:longint;
a,b:longint;
    bool:boolean;
begin
    write('Nhap N: '); readln(n);
    bool := false;
    for i:=2 to trunc(sqrt(n)) do 
        if (n mod i=0) then 
    begin
        a := n div i;
        bool := true;
        break;
    end;
    if bool=false then
        a := 1;
    b := n-a;
    writeln('So thu nhat la: ',a);
    writeln('So thu hai la:  ',b);
    writeln('----------------');
    writeln('UCLN la: ',a);
    readln;
end.