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