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

Question

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

---

Comments

Странна манера - боком прицеплять фото

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.

---