Напишите программу для расчета по формуле.

Var
  y: real;

begin
  y := tan(3 * Pi);
  y := y * y; {квадрат}
  y := y * y; {четвертая степень}
  y := (1 - y) / (ln(8) / ln(3));
  writeln('y=', y)
end.