Done in mathematica

#$2$

Write two programs that will output all Pythagorean triples $a^2+b^2==c^2$ for $1a,b,c20,$ with no repeated triples. The first program should be procedural $($loops$)$ and the second should

be functional $($no loops, use built in functions such as Apply, Pick, anonymous functions, etc$).$