Язык - Pascal
1)Есть ли в нем функция котангенса, или надо выражать самому, как 1/tan?
2) Можно ли эту строчку кода как-то упростить?
if (d <> 1) and (d <> 2) and (d <> 3) and (d <> 4) and (d <> 5) and (d <> 6) and (d <> 7)and (d<>9) and (d<>10) and (d<>11) then