Составить программу для решения этой формулы (Паскаль)

Question

Составить программу для решения этой формулы (Паскаль)

---

Answer 1

Var a,t,y,z:real;
begin
writeln('a, t, y: ');
readln(a,t,y);
z:=a*exp(t*cos(y));
writeln('a*e^(t*cos(y)) = ',z);
end.

Пример:
a, t, y: 
2 0.8 1.5
a*e^(t*cos(y)) = 2.11644319583945