Написать программу для pascal по этой

program ExampleN;

uses ...;  // здесь укажите где в вашей версии Паскаля

var

 x, y, z, r, s: Real;

begin

 Write ('Введете x, y: ');

 ReadLn (x, y);

 z := Sqr (Cos (x));

 if z = 0.0 then

   r := 0.0

 else if z > 0.0 then

   r := Exp (Ln (z) / 3)

 else

   r := - Exp (Ln (-z) / 3);

 s := 8 * r - y;

  WriteLn (s);

 ReadLn;

end.

Объяснение:

в паскале нет стандартной функции извлечения корня, поэтому приходится использовать такой алгоритм:

 if z = 0.0 then

   r := 0.0

 else if z > 0.0 then

   r := Exp (Ln (z) / 3)

 else

   r := - Exp (Ln (-z) / 3);