Дан ряд чисел. п=1*4*9*16*25. найти корень квадратный из произведений этого ряда.

Не понял точно, что нужно делать, но вот.


Program KOREN;
Uses crt;
var P: real;
Begin clrscr;
      writeln('П=1*4*9*16*25');
      P:=sqrt(1*4*9*16*25);
      write('sqrt(П) = ', p);
readln;
End.