Составить блок схему и программу на языке паскаль алгоритма вычесления значений данной функции z=cos(x^3+2t+3sqrt(y))^2+sin(x^3+2t+3sqrt(y))+7e^x

Если я правильно понял формулу то решение будет такое.

program zadacha_1;
var
  z, c, v: real;
  i, x, y, t : integer;
begin
writeln('Введите Х: ');
read(x);
writeln('Введите Y: ');
read(y);
writeln('Введите T: ');
read(t);
c:=((x * x * x) + (2 * t) + (3 * sqrt(y)));
z:=cos(c) + sin(c);
v:=7*exp(1);
for i:=2 to x do v:=v*v;
z:=z+v;
writeln('Результат равен ', z);
end.