$a = спроси "Длина катета a (см)"
$b = спроси "Длина катета b (см)"
$c = sqrt($a * $a + $b * $b)
$bac = arctg($a / $b)
сброс
рх $b + 20, $a + 20
цх 255, 255, 127
цп 0, 0, 127
нпр 180
иди 10, 10
сч
вп $a
лв 90
вп $b
лв 180 - $bac
вп $c