И еще пожалуйста) P=sin (sqrt (abs (x)*sin (sqrt (abs (2x)*…

var P, pr, x: real; i, n: integer; begin P: =1; writeln ('Введите n'); readln (n); writeln ('Введите x'); readln (x); for i: =1 to n do begin pr: =sin (sqrt (abs (i*x); P: =pr*P; end; writeln ('P=', P: 0:5); end.