Написать программу к блок схеме,срочно плиз!!!

var x, l, z:real;

begin

write('Введите x: ');

readln(x);

write('Введите l: ');

readln(l);

z := power( (x*x + l), 1/5 ) + (sin(x) / cos(x)) - exp(x);

writeln(z);

end.

В Pascal функции $tg(x)$ нет, поэтому её заменили на $\frac{sin(x)}{cos(x)}$