Pascal abc как записать тангенс в третьей степени

Var   y: real; begin   read(y);   writeln(system.math.pow(system.math.tan( y * pi / 180), 3)); end.

Он отличается тем, что к нему можно получить доступ только из локальной сети. Компьютер из другой сети уже не сможет к нему подключиться.

Пример локальной сети: Я соединил все домашние компьютеры между собой. В данном случае компьютеры могут обмениваться информацией между собой, но не могут делать этого с компьютерами из другой сети.

Пример глобальной сети: Интернет. Любой компьютер, подключённый к сети Интернет может обмениваться информацией с любым другим компьютером, подключённым к этой сети.

Если что-то непонятно, то расскажу в комментариях.

Программа на языке паскаль. const n=30; var i, s0, k, a: integer;       b: array [1..n] of integer; begin       readln(a);       s0: =0;       k: =0;       randomize;       for i: =1 to n do       begin b[i]: =random(20001)-10001; {чтобы диапазон случайных чисел был от -10000 до 10000}                 if (b[i]< 0) then s0: =s0+b[i];                 if (b[i]> 0) and (b[i]< =a) then inc(k);       end;       if (s0< > 0) then writeln(s0, ' - сумма отрицательных чисел')       else writeln('отрицательных чисел нет');       if (k< > 0) then writeln(k, ' - количество положительных чисел, не превосходящих числа а')       else writeln('положительных чисел не превосходящих числа а, нет'); readln; end.