Дан ряд чисел. П=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.