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.