WinLogo

para pitag :x :y

haz "hipo rc(:x*:x + :y*:y )

(es [la hipotenusa es] :hipo )

fin

pitag 2 3