program pr4;
var p,a,x:real;
i,n:integer;
 begin
a:=0;
repeat
writeln('enter a-(a < 1)');
readln(a);
if a>=1 then 
begin
writeln('a has to be less than 1!!! enter correct value');
until (a=1);
p:=1;
n:=60;
for i:=2 to n do
begin
x:=sqrt((i*i*i)+2);
p:=p*a*sin(x)*ln(x);
end;
writeln('result is ',p:5:2);
readln;
end.