var a,b,c:integer;   
n:integer;   
d:integer;
function pytago(x,y,z:integer):boolean;
begin    
    if (x*x+y*y=z*z) or (x*x+z*z=y*y) or (y*y+z*z=x*x) then     
        exit(true) 
    else  
        exit(false);
end;
begin    
    write('nhap so n: '); 
    readln(n);  
    d := 0;   
    for a:=1 to n div 2 do   
        for b:=n downto (a+1)do   
    begin        
        c := n-a-b;    
        if pytago(a,b,c) then      
        begin            
            inc(d);          
            writeln(n,' la tong cua bo so pytago');    
            writeln(a,' ',b,' ',c);     
        end;    
    end;    
    if d=0 then      
        writeln(n,' khong la tong cua bo so pytago');   
    readln;
end.