Показать, что для всех n=1.2.3N (1^5+2^5+..n^5)+(1^7+2^7..+n^7)=2(1+2+..n)^4

[ЮЛИКА]

Подскажите что делаю не так, не работает программа.Задание Показать, что для всех n=1,2,3,N
(1^5+2^5+...+n^5)+(1^7+2^7+...+n^7)=2(1+2+...+n)^4
решение: 
Var
 sum,sum2:real;
 i,n,k:integer;
begin
readln(n);
for i:=1 to n do
begin
 sum:=sum+(exp(ln(i)*5)+exp(ln(i)*7));
 sum2:=sum2+i;
 if round(sum)=round(2*exp(ln(sum2)*4)) then inc(k);
end;
if k=n then writeln('Верно')
else writeln('Не верно');
readln;
end.

[ki]

СТранно...
Код вроде нормальный, только следовало бы сперва проинициализировать sum,sum2,k
 
на ссылка

program HelloWorld;
Var
 sum,sum2:real;
 i,n,k:integer;
begin
readln(n);
sum:=0;sum2:=0;k:=0;
for i:=1 to n do
begin
 sum:=sum+(exp(ln(i)*5)+exp(ln(i)*7));
 sum2:=sum2+i;
 if round(sum)=round(2*exp(ln(sum2)*4)) then inc(k);
end;
if k=n then writeln('Yahoo')
else writeln('Oh,No');
readln;
end.   
   
нормально компилируется и на ура работает...правда n пробовал до 10...

[ЮЛИКА]

Даааа, запустилась урааа. Подскажите как сделать к ней отчет.ПОЖАЛУЙСТА...