program edfr;
uses crt;
var i,q,w,e:integer;
s:string;
begin for i:=1 to 10 do for q:=1 to 10 do for w:=1 to 10 do if sqr(i)=sqr(w)+sqr(q) then begin write(' ',i) ;
write(' ',q);
writeln(' ',w);
end;
readln;
end.