Найти произведение кубов чисел в диапазоне от 1 до N — Pascal(Паскаль)

function p(n:integer):integer;
var i,r:integer;
begin
        r:=1;
        for i:=2 to n do
             r:=r*i*i*i;
        p:=r; 
end;
var
    n,rez:integer;
begin
    readln(n);
    rez:=p(n);
    writeln(rez);
end.