var x,a,d:int64;
    t:byte;
    y:real;
begin
    d:=0;
    write('Nhap so A: ');
    readln(a);
    x:=0;
    t:=0;
    while x <= a*a do
    begin
        inc(x); 
        y := (x-a)/(a*x);
        if y>0 then
        begin
            y := 1/y;
            if (frac(y)=0) and(x<=y) then 
            begin 
                inc(d);
                writeln('TH ',d:3,': x= ',x,' | y= ',y:0:0);
            end;
            //if x=y then t:=1;
            if x>=y then break;
        end;
    end;
    writeln('---------------------');
    if d=0 then writeln('Khong co truong hop nao!')
    else writeln('Co ',d,' truong hop');
    writeln('------ The end ------');
    readln;
end.