Напишите процедуру для вычисления выражения y=2cos3x

Question

Напишите процедуру для вычисления выражения y=2cos3x

Answer 1

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
procedure f(x:real;var y:real);
begin
  y:=2*Cos(3*x)
end;