Program p41_45;
var i,j,k,n,g:word;
begin
Writeln('Introdu un nr. natural!');Readln(n);
g:=0;
for i:=5 to n do for j:=4 to i-1 do for k:=3 to j-1 do
 if sqr(i)=sqr(j)+sqr(k)then begin
  writeln(i,' ',j,' ',k,' ');
  inc(g);
  if g mod 23=0 then begin
   Writeln('Apasa <Enter> pentru a continua...');
   readln;
  end;
 end;
readln;
end.