program UocSo;
var
    n, i, maxUoc, tongChuSo, maxUocSo: integer;

function TimUocLonNhat(n: integer): integer;
var
    i: integer;
begin
    TimUocLonNhat := 1;
    for i := 2 to n div 2 do
    begin
        if n mod i = 0 then
        begin
            TimUocLonNhat := i;
        end;
    end;
end;

function TinhTongChuSo(n: integer): integer;
var
    tong, temp: integer;
begin
    tong := 0;
    temp := n;
    while temp > 0 do
    begin
        tong := tong + (temp mod 10);
        temp := temp div 10;
    end;
    TinhTongChuSo := tong;
end;

function DemUoc(n: integer): integer;
var
    i, dem, maxUocSoFar: integer;
begin
    dem := 0;
    maxUocSoFar := 0;
    for i := 1 to n do
    begin
        if n mod i = 0 then
        begin
            dem := dem + 1;
            if dem >= maxUocSoFar then
            begin
                maxUocSoFar := dem;
                maxUocSo := i;
            end;
        end
        else
        begin
            dem := 0;
        end;
    end;
    DemUoc := maxUocSo;
end;

begin
    // Nhập số nguyên dương n
    writeln('Nhap so nguyen duong n:');
    readln(n);

    // Tìm ước số lớn nhất nhỏ hơn n
    maxUoc := TimUocLonNhat(n);
    writeln('Uoc cua ', n, ' lon nhat la ', maxUoc);

    // Tính tổng các chữ số của n
    tongChuSo := TinhTongChuSo(n);
    writeln('Tong cac chu so cua ', n, ' la ', tongChuSo);

    // Tìm số có nhiều ước nhất không vượt quá n
    maxUocSo := DemUoc(n);
    writeln('So co nhieu uoc nhat la ', maxUocSo);

    readln;
end.