program TinhToan;

function SoChinhPhuongLonNhat(N: Integer): Integer;
begin
    SoChinhPhuongLonNhat := Trunc(Sqrt(N)); // Lấy phần nguyên của căn bậc hai của N
    SoChinhPhuongLonNhat := SoChinhPhuongLonNhat * SoChinhPhuongLonNhat; // Lấy bình phương của phần nguyên
end;

function LaLuyThuaCuaHai(N: Integer): Boolean;
begin
    LaLuyThuaCuaHai := (N and (N - 1)) = 0;
end;

procedure TimXY(N: Integer; var x, y: Integer);
begin
    x := 0;
    while (1 shl (x + 1)) <= N do
    begin
        x := x + 1;
    end;
    y := N - (1 shl x);
end;

var
    N, chinhPhuongLonNhat, x, y: Integer;
begin
    Write('Nhap so tu nhien N (> 1): ');
    Readln(N);

    chinhPhuongLonNhat := SoChinhPhuongLonNhat(N);
    Writeln('+ So chinh phuong lon nhat la: ', chinhPhuongLonNhat);

    if LaLuyThuaCuaHai(N) then
        Writeln('+ ', N, ' la mot luy thua cua 2.')
    else
        Writeln('+ ', N, ' khong phai la mot luy thua cua 2.');

    TimXY(N, x, y);
    Writeln('+ So tu nhien x lon nhat va so tu nhien y de: ', x, ' và ', y, ' để 2*', x, ' + ', y, ' = ', N);
end.