Ек
Екатерина
Если я правильно понял, то вроде так:
program Formula;
uses crt;
var Z,L,n,x: real;
begin
write('Введите L: ');
readln(L);
write('Введите n: ');
readln(n);
write('Введите x: ');
readln(x);
Z := L*n*(x+2)+2*sin(qrt(x));
writeln(Z);
readkey;
end.