........Помогите, пожалуйста решить эту задачу..............или, хотя бы, напишите ссылки на сайты, где я могла бы найти решение........!!!!=))))
Условие задачи в приложенном документе...........
program MUL;
var i,n :integer;
function max3(a,b,c:integer):integer;
var r :integer;
begin
r:=a;
if b>r then r:=b;
if c>r then r:=c;
max3:=r;
end;
function P(n,i:integer):double;
var k :integer;
m :double;
begin
m:=1;
for k:=1 to n do
m:=m*max3(i,k*k,15-i);
P:=m;
end;
begin {of main program}
write('Vvedite n='); readln(n);
for i:=1 to 50 do
writeln('i=',i:2,' P=',P(n,i));
end.