Составьте программу вычисления значений функция у по формуле y=3sinx+2x

Var
  x: real;
Begin
  WriteLn('y = 3Sin(x) + 2x');
  Write('Введите значение икс: ');ReadLn(x);
  WriteLn('y = ',3*Sin(x)+2*x);
End.