uses crt; var a,b,n:byte; begin clrscr; readln(n); for a:=1 to n do for b:=a to n do if frac(sqrt(a*a+b*b))=0 then writeln('(',a,', ',b,')'); readln; end.
program Hello; uses crt; var n,a,b,c:longint; begin readln(n); for a:= 1 to n do for b:= a to n do begin c:= a*a + b*b; if sqrt(c) = trunc(sqrt(c)) then writeln('(', a, ', ', b, ')'); end; readln; end.
