P=sqrt4 * sqrt8 * sqrt12 * sqrtx = sqrt(x). решить по информатике с оператора

Program prog;
var p,i:real;

begin
p:=1;
while(i<48) do
begin
i:=i+4;
p:=p*sqrt(i);
end;
writeln('P = ',p:0:3);
end.