Ответ:

//fpc 3.0.0

program HelloWorld;

var t, k: Integer;

var x, sum, p: Real;

begin

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

   readln(x);  

   sum := 0;

   p := 1;    

   for t := 1 to 7 do

       sum := sum + Sin(t*x) / (1.0 * t * t);

   for k := 1 to 9 do

       p := p * Sqrt(1.0 * k);

   writeln(sum + p);    

end.