Question

Помогите сделать в turbo pascal: дано целое число x, вычислить

Answer 1

uses Crt;
var x,y:real;
begin
  ClrScr;
  Write('x='); Read(x);
  y:=exp(cos(x))-sqr(x+sin(x/3)/cos(x/3)+2);
  Writeln('y=',y);
  Readkey
end.